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Abstract 

This  paper  tackles  the  most  time-consuming  and 
complicated  type  of  search  and  recovery  planning 
calculating  the  approximate  surface  position  of  an  aerospace 
object  which  has  been  affected  over  time  by  glide  or 
parachute  winds  aloft,  as  well  as  surface  current  winds, 
leeway  drift,  and  sea  current  vectors.  The  three,  highly- 
interactive,  search  applications  programs  herein  are  written 
in  Standard  Pascal  using  Borland  International's  "TURBO 
Pascal"  (an  inexpensive  software  package  available  for 
virtually  every  microcomputer  on  the  market).  They  have 
been  tested  on  a  small,  portable,  64K  memory,  Z-80A 
processor-based  microcomputer  (Osborne  One) ,  a  Convergent 
Technologies  C-3  Data  System,  and  a  Digital  Equipment 
Corporation  VAX  11-780  mainframe. 

Search  and  Rescue/Recovery  (SAR)  in  the  United  States 
is  based  on  the  humanitarian  principle  which  compels  people 
to  render  aid  to  those  in  distress.  Search  planning 
guidelines  and  formulae  to  help  locate  persons  in  distress 
or  missing  aerospace  objects  are  described  in  the  National 
Search  and  Rescue  Manual  (AFN  64-2).  This  methodology  has 
not  been  implemented  for  microcomputers  in  a  compiled, 
transportable  programming  language  like  Pascal.  This 
research  project  does  just  that.  It  does  not,  however, 

viii 


teach  the  guidelines  or  formulae.  The  reader  MUST  have  a 
solid  understanding  of  SAR  methodology  before  using  the 
attached  software  package  to  assist  in  making  decisions 
where  human  life  is  at  risk.  In  fact,  since  no  amount  of 
testing  can  uncover  100*  of  program  errors,  the  attached 
software  package  is  recommended  for  training  use  only. 

Appendices  include:  glossary,  user's  guide,  sample 
problem  with  program  runs  and  solutions,  and  source  code 


listing 


Chapter  1 


MICROCOMPUTER  APPLICATION  OF  AEROSPACE  ASSET 
SURFACE  SEARCH  PLANNING 


Background 

What  ie  the  value  of  a  human  life?  Each  year  milliona 
of  dollars  and  countless  manhours  are  expended  searching  for 
missing  persons  in  distress.  International,  national, 
state,  and  local  government  search  and  rescue/recovery  (SAR> 
agencies  commit  limited  resources  looking  for  the  real  or 
perceived  victims  of  accidents  or  incidents  such  as  sinking 
vessels  or  airliner  or  light  plane  crashes.  And,  as  humans 
increasingly  orbit,  fly  and  sail  over  the  Earth,  the  number 
of  such  missing/distressed  persona  can  only  multiply. 

Likewise,  as  man  launches  and  recovers  increasing 

amounts  of  equipment  to  and  from  apace,  more  of  it  will, 

undoubtedly,  land  somewhere  other  than  intended.  Remember 

when  no  one  knew  where  the  uncontrolled  US  Sky lab  or  the 

Soviet  nuclear-powered  COSMOS  satellite (s>  would  crash  once 

they  re-entered  the  Earth's  atmosphere?: 

There  is  no  way  to  tell  exactly  where  between 
SO  North  and  50  South  latitude  Skylab  debris 
will  fall  even  as  late  as  one  orbit  prior  to 
entry.  .  .  Skylab  weighs  about  175,000  lbs.,  and 
analysis  indicates  that  40,000-50,000  lbs.  could 
survive  reentry.  (5:19) 

No  one  knew  where  these  spacecraft  finally  did  land  until 
several  hours/days  of  searching  located  the  missing  pieces 
(1:33,7:1-6,9:1-5) . 
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The  United  States  Coast  Guard  (USCG)  is  tasked  with 


training  Federal  Military  and  civil  agencies  in  search 
planning  (10:2-7).  For  this  purpose  they  maintain  the 
National  SAR  School  in  New  York  City.  After  tabulating  many 
years  of  search  statistics.  USCG  developed  a  lengthy.  yet 
comprehensive.  manual  method  of  search  area  determination 
using  vector  addition,  algebra,  tables,  graphs,  and 
nomographs.  This  technique  is  taught  over  a  3-week  course, 
where  the  typical  oceanic  problem  takes  experienced 
planners,  assisted  by  electronic  calculators,  several  hours 
to  complete  (8) . 

Unfortunately,  these  same  hours  may  be  spent  by 
injured  survivors  on  land  or  in  the  water  awaiting  recovery 
(see  Figure  1).  Or,  valuable  equipment  may  receive 
environmental  exposure  damage  (e.g.,  corrosive  seawater) 
before  search  forces  are  directed  where  to  look  for  it. 

Problem  Description 

The  National  SAR  School  manual  search  planning 
technique  is  not  available  for  microcomputer  users  in  a 
widely-transferable,  high-level,  compiled  programming 
language,  like  Pascal  (8).  Such  a  software  package  could 
save  precious  time  (see  Figure  2)  by  providing  appropriate 
agencies  with  preliminary  data  on  which  to  initiate  search 
planning.  This  would  result  in  search  forces  being 
organized  and  launched  much  sooner,  saving  more  lives  and 
critical  resources.  The  search  planning  technique  is 


available,  however,  on  the  USCG  mainframe  computer  system  at 
Governor's  Island,  New  York,  with  aome  limitations  on 
capability  and  accessibility. 

Any  discussion  of  these  limitations  must  firat  deacribe 
current  capabilities.  An  operations  research  firm  in  Paoli, 
PA,  received  a  government  contract  to  design  a  “Computer 
Asaisted  Search  Planning"  (CASP)  program  to  run  on  the  Coast 
Guard's  Convergent  Technologies  C-3  Data  System  computer. 
The  program  allows  weighted  multi-criteria  decision-making, 
draws  search  location  probability  maps,  and  has  other 
features  which  only  embellish  the  basic  manual  calculation 
method  and  would  never  fit  in  the  limited  memory  space  of 
the  standard  48-64K  RAM  microcomputer.  Yet,  CASP  only 
handles  surface  search  object  planning!  It  lacks  the 
capability  of  calculating  the  initial  surface/splaah-down 
position  of  gliding,  falling,  and/or  parachuting  aerospace 
objects  (ejecting  pilots,  satellite  packages,  etc.).  For 
years,  the  National  SAR  School  faculty  has  been  forced  to 
manually  calculate  this  aerospace  drift  position  before  they 
could  execute  their  commercially-procured,  mainframe 
computer  search  planning  software  (8).  Were  this  aerospace 
drift  capability  incorporated  into  the  software  created  in 
this  thesis  effort,  then  it  could  be  used  on  the  USCG 
mainframe  and  microcomputers  alike. 

The  second  limitation  involves  accessibility.  Outside 
agencies  desiring  rapid  and  accurate  search  planning 


assistance  do  not  have  direct  access  to  USCG's  mainframe 


running  the  CASP  program.  They  must  verbally  pass  the 

required  information  by  phone  to  the  Coast  Guard*  who  must 

key  in  their  data  and  phone  back  the  results.  This  method 

is  slow  and  typographical  errors  can  make  it  an  even  longer 

process.  Adding  to  the  problem  are  possible  time-sharing 

delays*  explained  by  Fraley  and  Kem: 

Due  to  the  increased  use  of  computers  in  all 
aspects  of  management*  the  number  of  users 
attempting  to  access  the  computer  is  normally 
quite  large.  This  aspect  may  then  cause  the 
response  time  of  non-dedicated  remote  computer 
systems  to  be  unacceptable  in  a  time  critical 
environment.  <2:4) 

These  authors  conclude  with  the  valid  suggestion  that 
microcomputers  offer  a  solution  to  this  accessibility 
problem . 

As  a  final  advantage  of  developing  search  planning 
software  for  microcomputers*  the  Coast  Guard  has  expressed 
interest  in  freely  offering/downloading  this  software  to 
interested  students/graduates  on  an  "optional  basis"  to 
maintain  the  skills  they  learned  at  the  National  SAR  School 
(8)  . 

Ptfg.qreh 

♦ 

The  primary  objective  of  this  project  is  to  design* 
implement*  verify  and  validate  a  microcomputer-based 
aerospace  asset  search  planning  tool.  The  reason  is  to 
generate  answers  much  faster*  and  with  greater  accuracy, 
than  if  manual  calculations  were  used. 
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The  other  key  objective  is  to  create  a  search  planning 
tool  that  is  highly-transportable  between  different  types  of 


microcomputers.  This  entails  sub-objectives  of  keeping  the 
progrsm(a)  small  and  writing  it  (them)  in  a  high-level, 
transportable  programming  language  for  microcomputers. 
Therefore,  the  tool  is  divided  into  three  programs.  This 
keeps  their  compiled  versions  small  enough  to  implement  on 
microcomputers  having  at  least  64K  random-access  memory 
(RAM)  and  one  disk  drive.  The  selection  of  programming 
language  is  now  described. 

Programming  Language  Selection 

The  choice  of  a  suitable  microcomputer  language 
offered  these  alternatives:  BASIC,  FORTRAN,  or  Pascal. 
Most  microcomputers  can  be  purchased  today  with  their  own 
generic  brand  of  BASIC  (Beginner's  All-Purpose  Symbolic 
Instruction  Code)  language.  Unfortunately,  most 
microcomputer  BASICs  are  slower,  interpreted  or  pseudo- 
compiled  languages.  Interpreted  languages  translate  each 
program  statement  into  a  sequence  of  machine  code 
instructions  which  are  executed  before  the  next  statement  is 
translated.  This  method  takes  much  longer  to  run  than  do^s 
pre-translating  the  program  into  machine  code  (or  “compiling 
it",  as  do  Fortran  and  Pascal)  enabling  instant  execution. 
Also,  BASIC  does  not  allow  the  use  of  mnemonic  names  to  give 
the  user  a  clue  as  to  a  variable's  purpose  in  a  program. 
Worst  of  all,  BASICs  are  often  incompatible  between  computer 
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types,  limiting  their  portability. 

The  FORTRAN  <FORmula  TRANslation)  story  is  even  more 
bleak.  Those  packages  available  for  microcomputers  are  non¬ 
standard  subsets  of  FORTRAN  77.  At  time  of  writing  only  one 
software  company  (Digital  Research)  had  announced 
development  of  a  complete,  standard  version  of  FORTRAN  77 
for  micros.  However,  this  version  only  runs  on  IBK  personal 
computers  upgraded  (at  user  expense)  to  512K  RAN  and  is 

scheduled  to  cost  over  ten  times  as  much  as  the  language 

used  in  this  project. 

By  this  process  of  elimination,  Pascal  was  ultimately 

selected.  This  language  was  designed  by  Professor  Niklaus 

Wirth  of  the  Eidgenossische  Technische  Hochschule  in  Zurich, 

Switzerland,  and  named  in  honor  of  Blaise  Pascal  (1623- 

1682),  the  famous  17th-century  French  philosopher  and 

mathematician  (6:2-3).  Since  first  introduced  in  1971, 

Pascal  has  been  applied  to  almost  any  task  on  computers  and 

has  received  increasing  attention  and  use  in  business  and 

academia  worldwide.  A  recent  Soviet  journal  reports: 

Scientists  of  the  Lithuanian  Academy  of  Sciences' 
Institute  of  Mathematics  and  Cybernetics, 
Department  of  Systems  Programming,  selected  the  so- 
called  Pascal  language  from  several  programming 
languages  used  by  computers  (for  training 
programmers) .  This  language  reflects  the  main 
concepts  of  programming  rather  clearly  and  is 
highly-auitable  for  training  purposes  .  .  .  helping 
(programmers)  to  master  the  fundamentals  of 
programming  more  quickly  and  easily. 

(il:2) 

It  is  the  only  microcomputer  language  to  meet  the  criteria 
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of  being  readily-available,  highly-transportable,  and: 

Pascal  is  trim  enough  to  run  in  the  48K-  to  64K- 
byte  memory  limit  that  characterizes  (most  personal 
computers) .  It  is  small  enough  to  be  easily 
implemented,  and  its  trimness  makes  it  syntax  and 
semantics  easy  to  specify  and  relatively  easy  to 
grasp.  (4:234) 

Best  of  all,  Borland  International's  "TURBO  Pascal"  used  in 
this  project  comes  complete  with  a  259-page  User's  Manual 
for  only  S49.95  retail  ($35  mail  order).  The  attached 
programs  were  written  in  TURBO  on  an  Osborne  personal 
computer  and  readily  compiled  and  executed  under  Standard 
Pascal  (Jensen  and  Wirth  rules)  on  a  DEC  VAX  11-780 
mainframe . 

As  such,  this  project's  three  programs  for  aerospace 
asset  search  planning  were  developed  to  run  on  a  minimum 
system  consisting  of  at  least  a  64K  RAM-equipped 
microcomputer  with  one  disk  drive.  The  user  need  not 
purchase  TURBO  to  compile  and  execute  the  programs,  if  a 
pre-compiled  (compiled  for  a  specific  type  of  personal 
computer)  copy  of  these  programs  is  acquired.  The  only 
software  needed  to  execute  the  compiled  programs  is  the 
user's  microcomputer  operating  system.  However,  if  a  pre¬ 
compiled  version  is  unavailable,  the  Borland  product  must  be 
acquired  and  the  source  code  listed  in  Appendix  D  must  be 
keyed  in  and  compiled  to  run. 


The  scope  of  this  project  limits  validation  of 
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applied  herein  to  microcomputer  programming  to  calculate  the 
smallest,  feasible  search  area  with  the  highest  probability 
of  locating  missing  aerospace  objects  over  land  or  in  the 
water.  The  algorithms  incorporate  the  National  SAR  School's 
manual  search  planning  method,  making  no  attempts  to  verify 
the  accuracy  of  formulae,  graphs,  or  nomographs  the  Coast 
Guard  has  relied  on  and  updated  over  many  years  of 
successful  search  and  rescue  experience.  As  such,  they 
address:  aerospace  drift;  calculation  of  average  winds 
aloft;  sea,  wind,  and  leeway  current  drifts;  calculation  of 
average  surface  winds;  minimum,  maximum,  and  DATUM_minimax 
position  determination:  and,  calculation  of  search  area. 
These  areas  fit  into  the  overall  search  planning  methodology 


1 .  Awareness 

2.  Initial  Actions 

3.  Planning  - >  PLANNING  STAGE 

4.  Operations  I 

5.  Mission  Conclusion  I 

I 

I 

DATUM  Deternination 
I 


I 

AEROSPACE 

INCIDENT 

I 

Calculate  Aerospace  Drift 
I 

Calculate  Average  Winds  Aloft 
I 

Determine  Surface  Position 
I 


I 

SURFACE 

INCIDENT 


I 

Determine  Sea  Current  Drift 
I 

Determine  Wind  Current  Drift 
I 

Determine  Leeway  Drift 
I 

Determine  Minimum  Total  Drift  (Dmin  Position) 

I 

Determine  Maximum  Total  Drift  (Dmax  Position) 
I 

Determine  DATUMminimax  Position 
I 

Determine  Search  Area 


Figure  3.  SEARCH  STAGES 
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Chapter  2 

Software  Package  Deeign 


Qytoigy 

Software  engineering  practicea  (discussed  in  Chapter 
3>  were  used  throughout  the  development  of  the  attached 
microcomputer  package.  Top-down  design  (breaking  a  larger 
problem  into  smaller  pieces  for  solution  and  coding)  led  to 
the  modular  development  of  three  programs.  This  research 
effort  uses  top-down  program  design  methodology.  Actual 
coding  follows,  emphasizing  simplistic  structures  for 
program  clarity  to  enable  simplified  modifications  by 
individuals  having  limited  Pascal  programming  experience. 
Then  comes  debugging,  testing  with  USCG-supplied  problems, 
and,  finally,  drafting  of  documentation  (User's  Guide). 

Slicing  Prcfrlcp  Xntc  flqnqg«qbl«»  P4gsa« 

The  64K  RAH  restriction  set  on  available  microcomputer 
memory  and  limited  magnetic  disk  storage  space  forced  the 
overall  problem  to  be  subdivided  into  smaller  units  of 
manageable  size  with  the  added  advantage  of  faster 
individual  modification  and  re-compilation  times  (see  Figure 
4).  This  search  planning  implemented  in  one  comprehensive 
program  would  not  fit  most  microcomputer  memory  or  disk 
storage  apacea.  In  particular,  the  ideal  disk  would  have  to 
store  source  (183K)  and  compiled  (112K)  code,  as  well  as 
leaving  approximately  10K  space  for  input/output  record 


PROGRAM 

NAME 

SOURCE 

CODE 

COMPILED 

CODE 

TOTAL 

LINES 

TOTAL 

PAGES 

AeroDrif t 

67K 

38K 

1468 

27 

SurfaceDrift 

8  IK 

50K 

1839 

34 

SearchArea 

35K 

24K 

777 

15 

TOTAL 

183K 

112K 

4084 

76 

Figure  4.  FINAL  SEARCH  PLANNING  SOFTWARE  STATISTICS 


files  created  during  program  runtime.  Additionally,  the 
disk  would  have  to  reserve  editing/  updating  space  equal  to 
the  size  of  the  source  code  --  a  total  of  488K.  For 
comparison,  Osborne  microcomputer  single-sided,  double¬ 
density  (SSDD)  disks  are  limited  to  183K  usable  storage 
space,  while  single-sided,  single-density  formats  are  only 
92K.  The  attached  software  fills  most  of  two  Osborne- 
formatted,  SSDD  disks,  leaving  approximately  65K  for 
generated  files  and  partial  editing  space. 

Modular  Program  Development 

This  technique  simplified  coding  and  allowed  easier 
verification,  debugging,  validation,  and  later  modification. 
It  also  eliminated  a  design  limitation  in  the  Borland  TURBO 
Pascal  package.  Program  sizes  always  exceeded  the  maximum 
size  the  Borland  product  could  compile  in  memory  at  one  time 
(approximately  20K,  depending  on  code  and  data  sizes) .  By 
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chaining  modules  and  compiling  to  disk  instead  of  memory 
(options  available  in  the  Borland  product),  no  complications 
arose  from  the  compilation  of  programs  with  source  code 
larger  than  available  RAH  (64K).  This  is  because  modules 
were  individually-compiled  to  disk  instead  of  simultaneously 
compiling  in  memory  before  recording  on  disk. 

The  three  programs  that  make  up  the  search  planning 
package  are:  Aerospace  Drift  Determination,  Surface  Drift 
Determination,  and  Search  Area  Determination.  These 
programs  and  their  modules  will  now  be  discussed  in  more 
detail  (Reader  understanding  of  National  SAR  Manual  search 
planning  methodology  is  assumed). 

Aerospace  Drift. Determination  Program 

The  Aerospace  Drift  Determination  program  has  three 
possible  paths  of  flow  (SAR  object  glides  only,  parachutes 
only,  or,  glides  then  parachutes  to  the  surface).  No  matter 
how  it  reaches  the  surface,  the  search  object  is  displaced 
from  its  initial  incident  position  by  the  vector  sum  of 
various  wind  directions  and  velocities  and  different 
altitudes  (see  example  in  Figure  5). 

The  Aerospace  Drift  Determination  program  calls  sub¬ 


modules  in  the  order  shown  in  Figures  6,  7,  and  8. 


Figure  6.  FIRST  PATH:  DRIFT  METHOD  =  GLIDE  ONLY 
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-AeroSpaceWinds  Program 

->  I -AoroPosition 
I 

l->  VerifyDTG 
I 

»->  GlideData 

I  (Drift  Method  »  GLIDE  ONLY;  SEE  ABOVE) 

I 

I  - >  GlideData 

I  (Drift  Method  -  GLIDE  &  PARACHUTE;  SEE  BELOW) 
I 

I  - >  I -ChuteData 
I 

I ->  I -InputWinds 

-Verif y Winds 
->  WindChart 
-WindDrift 
->  GlideOrChute 
->  AddVectors 
->  Ejection 

- >  AddVectors  (Optional) 


Figure  7.  SECOND  PATH:  DRIFT  METHOD  *  PARACHUTE  ONLY 


I 

I  ->  » 

I  I 

I  I 

I 

I  ->  I 

->  WriteToDisk 
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Figure  8.  THIRD  PATH:  DRIFT  METHOD  *  BOTH  GLIDE  &  PARACHUTE 


2-7 


PElft 

Aerospace  Drift 
PROCEDURE 

AddVactors 

AaroGlide 

AeroPosition 

ChuteData 

Ejection 

GlideData 

GlideOrChute 


Proarai  Module  Deacriotiona 

sub-modules  accomplish  the  following  tasks 

TASK 


When  given  the  X  and  Ycomponents  from 
procedure  VectorComponents,  this 
procedure  calculates  resultant  vector 
bearing  (AvgUindFrom)  and  magnitude 
(ReaultMagnitude) . 

Asks  user  for  aerospace  object  glide 
information,  if  applicable. 

Asks  user  for  last  known  time  and 
position  of  an  aerospace  object. 

Gathers  additional  information 
concerning  the  aerospace  object's 
parachute  descent  before  commencing 
calculations . 

If  aerospace  object(s)  of  interest  is 
a  (are)  pilot(s)  or  astronaut(s) 
ejecting  from  a  crippled  vehicle,  this 
procedure  asks  the  user  for  the 
(judgmental)  performance-type  of 
vehicle.  Then  it  sets  the  ejection 
distance  equal  to  the  standards  for 
that  type  of  vehicle  as  prescribed  in 
the  Rational  SAR  Manual  (10:8-8). 

Gathers  additional  information 
concerning  the  aerospace  object's 
glide  before  commencing  calculations. 

This  procedure  is  used  if  the 
aerospace  object  only  glides  (or 
falls),  or  parachutes  (after,  or  in 
lieu  of,  gliding)  to  the  surface. 
It's  purpose  is  to  find  the  altitudes 
halfway  between  each  altitude  for 
which  a  wind  direction  and  velocity 
have  been  reported. 

It  begins  with  the  next  higher 
altitude  winds  reported  above  the 
surface  level  winds,  and  ends  with 
that  mid-altitude  that  is  greater  than 
or  equal  to  the  altitude  at  which  the 
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G1 ideThenChute 


InputWinds 


VerifyDTG 

VerifyWinds 

WindChart 


descent  began.  It  then  uses  thece 
■id-altitudes  to  determine  the 
affective  wind  component  velocities  on 
the  descending  aerospace  object 
<10:8-10) . 

This  procedure  is  used  if  the 
aerospace  object  glides  (or  falls)  to 
a  lower  altitude  at  which  parachute(a) 
open  to  alow  it's  descent  to  the 
surface.  It's  purpose  is  to  find  the 
altitudes  halfway  between  each 
altitude  for  which  a  wind  direction 
and  velocity  have  been  reported.  It 
begins  with  the  mid-altitude  that  ia 
lower  than  or  equal  to  the 
parachute(s)  opening  altitude,  and 
ends  with  the  mid-altitude  that  is 
higher  than  or  equal  to  the  altitude 
at  which  the  descent  began.  It  then 
uaea  these  mid-altitudes  to  determine 
affective  wind  component  velocities  on 
the  gliding  (or  falling)  portion  of 
the  aerospace  object's  descent 
<10:8-10) . 

Queries  user  for  altitudes  at  which 
the  aerospace-object  begins  to  fall  or 
glide,  or  to  deploy  parachute (a ) . 
Then  it  asks  for  wind  directions  and 
velocities  at  those  altitudes  through 
which  the  object  descends.  The  user 
is  allowed  to  verify/change  any  input 
data  before  it  is  used  in  determining 
the  resultant  drift  vector  bearing  and 
magnitude. 

Verifies  legitimate  date/time/group 
data  input. 

Allows  user  to  change  wind  altitudes, 
directions,  and  velocities,  entered 
below  in  procedure  InputWinds. 

Prints  keyboard-input  wind  altitudes, 
directions,  and  velocities,  on  the 
video  screen  for  user  verification. 


VindDrift 


Determines  the  resultant  drift  vector 
bearing  and  magnitude. 


WriteToDisk  Prints  out  record  of  search  planning 

inputs  and  calculations  from  this 
program. 

Surface  Drift  Determination  Program 

Over  time,  the  search  object  is  displaced  from  its 
initial  surface/splash-down  position  by  the  vector  sum  of 
leeway,  sea,  tidal,  and/or  wind  current  directions  and 
velocities  at  different  times  and  locations  (similar  to  the 
example  presented  in  Figure  5  above).  The  Surface  Drift 
Determination  program  calls  sub-modules  in  the  order  shown 
in  Figure  9. 


-Surface  Drift  Program 


-> 


-> 


-> 


-> 


-> 


-> 


-> 


-> 


-> 


-> 


-> 


I  - 


I  - 


SurfacePoaition 

>  VerifyDTG 

>  VerifyDTG 
WindPerioda 
PeriodTimea 

>  DayelnMonth  (Optional  #1> 

>  DayelnMonth  (Optional  #2) 

>  DayelnMonth  (Optional  #3) 
InputSeaWinda 
WindLatCoeffa 


I  - 
I 

l->  I -Verif yWinda 

->  WindChart 
->  WindChart  (Optional) 
WindCurrent 

>  AddVectora 

>  AddVectora  (Optional) 
AvgSurfaceWind 


I 

I 

I  - 


I  - 


I  - 


I 

l->  AddVectora 

I  -LeewayDrif t 
I 

l->  Drif tDirUncertain  (Optional) 
I  -SeaCurrent 
I  -Datum 

I -WriteToDiak  (If  program  uaed) 

I 

l->  RecordCurrenta 


Surface  Drift  Determination  sub-modules  accomplish  the 


following  tasks: 
PROCEDURE 

AddVectors 

AvgSurf aceWind 

Datum 

DayalnMonth 

Dr if tDirUncertain 

InputSeaWinds 
LeewayDrif t 

PeriodTimes 

RecordCurrents 


TASK 


When  given  X  and  Ycomponents  this 
procedure  calculates  resultant  vector 
bearing  < AvgWindFrom)  and  magnitude 
(ResultMagnitude)  . 

Determines  the  average  surface 
(leeway)  wind  blowing  on  the  search 
object's  exposed  area  above  the 
ocean's  surface. 

Determines  the  Datum  Drift  Vector  (Min 
and  Max,  if  applicable)  from  the 
vector  sum  of  all  previous  surface 
drift  vectors. 

Given  the  month,  determines  the  number 
of  days  in  that  month,  including  a 
check  to  see  if  that  month  la  a  leap- 
year-February  with  29  daya. 

Used  by  procedure  Leeway  (if  drift 
rate  and  time  are  known  with 
certainty)  to  calculate  minimum  and 
maximum  leeway  drift  direction. 

Queries  user  for  ocean  surface  wind 
directions  and  velocities. 

Calculates  the  total  leeway  drift 
direction  and  distance  (10:8-13 
through  8-15). 

Determines  the  day  and  hour  for  which 
wind  directions  and  velocities  are 
required  in  the  eight  intervals  of 
each  period  to  calculate  each  period's 
ocean  surface  wind  current  component 
vector  (10:S-16b) . 

Called  by  procedure  WriteToDisk; 
Prints  out  record  of  Wind  and  Sea 
Current  vectors  or  Observed  Total 
Water  Current  vector,  as  applicable. 


SeaCurrent 


Determines  the  sea  (or  slope)  current 
affecting  search  object  drift,  and, 
queries  user  for  total  observed  water 
current  vector,  if  known. 

Surf acaPoait ion  Asks  user  for  the  last  known  and  the 

desired  Datum  times  and  positions  of  a 
search  object  on  the  ocean's  surface. 

VerifyDTG  Verifies  legitimate  date/time/group 

data  input. 

VerlfyWinda  Allows  user  to  change  ocean  surface 

wind  directions  and  velocities  entered 
in  procedure  ZnputSeaWinds . 

WindChart  Prints  keyboard-input  wind  coefficient 

directions  and  velocities  on  the  video 
screen  for  user  verification. 

WindCurrent  Uses  vector  addition  to  calculate  the 

resultant  wind  current  vector 
direction  and  magnitude  for  each 
period  and  for  the  sum  of  all  period 
vectors. 

WindLatCoeffa  Queries  user  for  Wind  Latitude 

Coefficient  Vector  directions  and 
velocities  from  National  SAR  Manual 
tables  <10:8-16c  through  8-lSd) . 

WindPeriods  Given  the  last  known  surface  position 

time,  and  the  hours  elapsed  from  then 
until  the  desired  Datum  time,  this 
procedure  determines  the  number  of  48- 
hour  wind-current-effect  periods,  and 
the  number  of  hours  (1  to  8)  in  each 
period,  required  to  calculate  the 
average  ocean  surface  current  caused 
by  the  wind. 

writelna  Writes  out  a  specified  number  of  blank 

lines . 

WriteToDisk  Prints  out  record  of  search  planning 

inputs  and  calculations  from  this 
program . 
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The  Search  Area  Determination  program  calls  sub- 
modules  in  the  order  shown  in  Figure  10. 


-Program:  SearchArea 

->  I -Position 

->  I -AeroSurf Vectors 

->  I -AreaSearch 

->  I -FindCoordinatea 
I 

I  - >  I -NewCoordinatea  (Aerospace  Drift  Vector  Poa.) 
I 

I ->  I -NewCoordinatea  (Dmax  Surface  Drift  Position) 
I 

l->  I -NewCoordinatea  (Dmin  Surface  Drift  Position) 
I 

l->  I -NewCoordinatea  (Search  Area  Center  Point) 

I 

I ->  I -FindXYaToCorner 
I 

1 ->  NewCoordinatea  (Upper  Right  Corner  Poa.) 

I ->  NewCoordinatea  (Lower  Left  Corner  Poa.) 

->  I -WriteToDiak 


Figure  10.  Search  Area  Determination  Program  Flow  Chart 


Search 


Area  Determination  sub-modules  accomplish 


following  tasks: 
PROCEDURE 

AreaSearch 

AeroSurf Vectors 

FindCoordinates 


FindXYsToCorner 


NewCoordinates 


Position 


TASK 


Given  the  search  object's  aerospace 
and/or  surface  drift  vector(s),  this 
procedure  calculates  the  search  area. 

Queries  user  for  previously-calculated 
Aerospace  and  (Max  &  Min)  Surface 
Drift  vectors. 

Calculates  X  &  Ycomponents  of 
aerospace  and  surface  drift  vectors 
end  sends  them  to  procedure 
NewCoordinates  for  it  to  determine  the 
search  area  center  point 
latitude/longitude.  Next,  this 
procedure  creates  two  vectors  (1  &  2), 
90-degrees  apart,  and  of  length  equal 
to  the  search  area's  radius.  It  sends 
these  two  vectors  to  procedure 
FindXYsToCorner  for  it  to  calculate 
the  vectors'  X  &  Ycomponents  enroute 
to  procedure  NewCoordinates,  which 
finds  the  corner  point 
letitudes/longitudes . 

Finds  the  X  &  Ycomponents  of  the 
search- area-center -point-displacement- 
vectors  created  by  the  calling 
procedure,  FindCoordinates.  Then,  it 
passes  these  components  to  procedure 
NewCoordinates  for  it  to  determine 
search  area  corner  point 
latitudes/longitudes . 

When  given  X  &  Ycomponents  and  a 
reference  latitude/longitude  by  the 
calling  procedures  FindCoordinates  and 
FindXYsToCorner,  this  procedure 
calculates  the  updated  position's 
letitude/longitude . 

Queries  user  for  last  known  position 
latitude  and  longitude. 


writelns 

Tii 

WriteToDisk 

i 


i  <• 

i 

•  .  • 


Writes  out  a  specified  number  of  blank 
lines . 

Prints  out  record  of  error  adjustments 
to  calculations  of  search  radius  and 
area. 
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Chapter  3 


Program  Structure 


Overview 

Chapter  2  declared  the  attached  prograna  are  dealgned 
ualng  current  software  engineering  guidelines.  This  chapter 
dlacusaes  these  guidelines  and  how  they  were  used  to  make 
this  search  planning  software  accurate,  maintainable, 
reliable,  and  “user-friendly"  (for  users  knowledgeable  in 
search  planning  methodology) . 


Software  Engineering  Guidelines 

According  to  Ledgard  in  Pascal  With  Style;  Programming 

Proverbs,  the  most  Important  guideline  in  software 

development  is  the  use  of  top-down  design  using  modules: 

Top-down  programming  has  two  distinct 
advantages.  First,  a  programmer  is  initially 
freed  from  the  confines  of  a  particular  language 
and  can  deal  with  more  natural  data  structures 
or  actions.  Second,  it  leads  to  a  modular 
approach  that  allows  the  programmer  to  write 
statements  relevant  to  the  current  structures  or 
actions.  (3:13) 

The  modules  are  then  thoroughly-tested  before  their 
combination  into  the  larger  program.  The  final  step 
involves  program  verification  (testing)  to  pinpoint  module 
interface  errors. 


T*+**nq  &  Errer-  ShesKAng 

Unfortunately,  program  testing  only  reveals  the 
presence,  not  the  absence,  of  errors: 


Too  often  quantity  of  teat  data  is 
accepted  in  place  of  quality.  The  mere  fact 
that  a  program  works  on  50  teat  runs  means 
nothing  if  those  50  seta  were  not  chosen 
carefully.  .  .  (The)  objective  must  be  to  select 
values  that  cause  the  execution  of  all  flow 
paths  through  the  program.  (6:436) 

In  addition,  the  testing  sequence  should  include  boundary, 

null,  and  illegal  case  trials. 

Boundary  case  errors  are  uncovered  by  the  input  of 
data  which  falls  at  the  boundaries  or  extreme  legal  range 
allowed  by  the  program.  For  example,  a  calendar-date 
program  should  be  tested  for  accuracy  in  determining  the  day 
after  the  last  day  of  different  mc-iths,  last  day  of  the 
year,  and  last  day  of  a  leap  year  February  (as  is  done  by 
Procedure  DaysInMonth  in  the  attached  Surface  Drift 
program) . 

In  contrast,  testing  for  null  case  error  involves  such 
tricks  as  the  input  of  blanks  or  carriage  returns  where  data 
is  requested  by  the  program,  or  directing  the  program  to 
reference  an  empty  data  file.  Such  actions  should  not  cause 
an  abrupt  abort  of  the  program  run,  although  wrong  answers 
will  be  generated.  To  avoid  null  errors,  the  attached 
programs  are  initialized  with  valid  values,  and,  they  often 
lock  the  user  into  a  "repeat-until"  loop  until  valid  new 
data  is  input.  Also,  there  are  no  calls  to  external  data 
files,  empty  or  otherwise. 

Finally,  programs  must  be  checked  for  their 
"robustness”  in  handling  illegal  data  entry.  A  robust 


program  produces  meaningful  results  (although  not  always 
correct  answers)  from  any  input  data  set,  even  if  that  set 
is  illegal  or  improper.  Since  the  three  programs  created 
for  this  project  request  numerous  data  inputs  from  the  user, 
input  errors  are  a  certainty.  The  type  of  errors  expected 
are: 

(1)  Accidently  typing  the  wrong  character. 

(2)  The  input  of  a  real  number  where  an  integer  is 

requested. 

(3)  The  input  of  wind  vector  data  out  of  sequence. 

(4)  Transposing  the  input  of  a  date-time-group  (e.g., 

1200-252  1/86  vs.  251200Z  JAN  1986). 

Improper  values  accepted  by  these  programs  leads  to 
the  "Garbage- In,  Garbage-Out"  (GIGO)  syndrome.  To  prevent 
such  an  occurrence,  “defensive  programs"  have  been  designed 
with  extensive  error-checking  for  legal  and  plausible  data 
values.  When  data  is  requested  from  the  user,  format 
examples  are  provided.  Then,  user  input  is  filtered  through 
“repeat-until"  loops  to  ensure  adherence  to  required  format. 
For  example,  the  programs  will  not  accept  compass  headings 
outside  of  the  0  to  360  degree  range,  winds  greater  than  99 
knots,  or  selection  of  option  #4  when  only  three  choices  are 
offered.  In  some  cases,  the  programs  will  print  an 
appropriate  error  message,  explaining  how  to  correct  and 


resubmit  the  data 


Unfortunately,  the  design  of  the  Pascal  programming 
language  allows  erroneous  input  of  real  numbers  where 


integers  are  called  for.  This  action  leads  to  an  extremely 
abrupt  program  abort.  All  data  must  then  be  re-input  from 
the  beginning.  However,  since  the  search  planning  package 
was  divided  into  three  separate  programs,  data  re-input  and 
execution  time  of  any  one  is  usually  less  than  a  minute  for 
experienced  users  with  the  required  data  readily-available . 


Another  problem  over  which  there  is  no  control  is  the 
machine  representation  and  manipulation  of  real  numbers. 
This  leads  to  incorrect  fractional  values  and  rounding  or 
truncation  errors.  For  example,  a  computer  having  eight 
binary  place  accuracy  records  the  value  "1/5"  as  0.00110011, 
or  0.1992  instead  of  0.20.  In  this  case,  five  times  a  fifth 
equals  0.996!  Therefore,  checking  for  equality  of  real 
values  or  successively  multiplying  or  dividing  them 
introduces  errors  during  program  execution.  Steps  were 
taken  in  designing  the  attached  search  planning  progralms  to 
minimize  opportunities  for  the  occurrence  of  these  errors. 


Other  design  features  of  attached  programs  include: 

(1)  Cleverness  of  expression  was  always  sacrificed 
for  expression  clarity  and  simplicity. 

(2)  Mnemonic  variable  names  correspond  with  those 


used  by  the  USCG  National  SAR  School,  even  at  the  expense  of 
having  aome  names  18  characters  in  length. 

(3>  Variable  prefixea  and  auffixea  are  standardized 
(e.g.,  different  types  of  wind's  directions,  velocities,  or 
distances  covered,  always  use  the  terms  "Brg"  (Bearing  to), 
“Dir"  (Direction  from),  "Spd"  (Speed),  or  "Dist"  (Distance) 
in  their  mnemonic  name) . 

(4)  Comments  to  assist  program  readability  and 
modification  are  used  extensively: 

-  Comments  just  prior  to  procedure  declaration 
describe  their  purpose. 

-  All  variables  names  and  functions  are  comment- 
defined  in  the  appropriate  "Var"  and  "Const"  aectiona. 

•  -  All  "Begin"  and  "End”  pairs  are  matched  using 

comments . 

-  Any  statement  whose  intent  ia  not  obvioua  ia 
described. 

(5)  To  enhance  program  clarity: 

Each  line  is  numbered  (non-standard  for  Pascal). 

Only  one  statement  per  line  is  allowed  (except  for 
variable  value  initialization). 

.  -  Multiline  statements  are  indented  ao  that 

structurally-related  clauses  are  aligned. 

(6)  Following  each  of  the  three  source  codes  in 
Appendix  D  are  tables  of  the  mnemonic  variables  and  Pascal 
functional  operators  used  by  each  program.  These  tables 
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also  Include  a  complete,  cross-referenced  listing  of  line 
numbers  on  which  each  variable  and  operator  appears.  These 
"Variable  &  Operator  Cross-Referenced  Listings"  are  provided 
to  further  enhance  software  understanding  and  aid 
modification  efforts, 

(7)  All  input  wind  altitudes,  directions,  and 
velocities  are  reprinted  back  to  the  user  for  verification 
and  update,  if  necessary,  before  being  used  in  program 
calculations.  The  only  exception  are  those  wind  current 
wind  times,  directions,  and  velocities  requested  by  the 
largest  of  the  three  attached  programs  --  Surface  Drift 
Determination.  Unfortunately,  there  was  only  enough 
microcomputer  memory  space  remaining  in  the  Surface  Drift 
program  to  verify  this  data,  or  to  verify  the  requested  Wind 
Latitude  Coefficient  Vector  directions  and  magnitudes. 
Since  the  Latitude  Coefficient  data  is  more  complex,  it 
appears  the  likeliest  candidate  for  typographical  input 
error.  For  this  reason,  it  was  selected  to  fill  the 
remaining  verification  space.  Therefore,  the  user  must 
exercise  caution  to  carefully  input  wind  current  wind  data 
the  first  time.  Any  errors  will  require  the  user  to 
terminate  that  program  run  and  try  again. 

(8)  The  attached  search  planning  programs  request 
some  input  from  the  user  that  is  not  fully  tested  for  error. 
An  example  is  the  query  for  the  search  object's  last  known 
position  date-time-group  (DTG)  in  the  first  program 


Aerospace  Drift  Determination 


Although  the  DTG  format.  is 


checked  to  confirm  the  date  falls  between  1  and  31  and  the 
hour  between  0000  and  2300,  the  date  is  not  correlated  with 
the  month.  For  example,  "311400Z  Feb  1984"  (or  "2:00  P.M. 
31  Feb  1984"  --  31  days  in  February!)  is  entirely  acceptable 
by  the  program.  Why?  The  DTG  is  not  used  in  any 
calculations  in  this  particular  program,  but  only  for  final 
output  file  reporting  purposes.  Therefore,  scarce 
microcomputer  memory  space  was  conserved  by  relying  on  the 
user  to  avoid  logic  or  typographical  input  errors,  while 
maintaining  the  his/her  ability  to  recognize  such  simple 
errors,  should  they  occur  in  the  final  output  disk  file. 

(9)  “Goto"  statements  were  not  used  to  avoid 
unconditional  transfers  of  control  thereby  enhancing  program 
readability . 

(10)  The  use  of  global  vs.  local  variables  was  abused 
in  designing  the  attached  programs.  Why?  Calling  variables 
"by  location"  uses  much  less  of  the  scarce  microcomputer 
memory  than  "call  by  value"  routines.  Also,  after  all  user 
input  and  computations  are  completed,  most  program  variables 
must  be  written  to  an  external  record/file  to  serve  as  a 
"calculations-audit  trail."  Making  these  variables  global 
allowed  for  a  simple,  "WriteToDisk"  procedure  to  create  the 
required  record. 

(11)  All  three  attached  programs  take  advantage  of  a 
non-standard  Pascal  feature  of  Turbo  Pascal  --  a  built-in 
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command/procedure  called  "CLRSCR"  for  clearing  the  video 


screen  whenever  desired.  For  these  programs  to  run  properly 
under  standard  Pascal  rules,  these  “CLRSCR**  commands  should 
be  globally  replaced  with  the  command  “writelns(24> '* .  This 
command  calls  on  the  predefined  procedure  Writelns  included 
in  all  three  programs.  The  unit  “24**  informs  this  procedure 
to  print  24  blank  lines  on  the  output  device  (monitor  or 
printer),  essentially  clearing  the  screen  just  as  “CLRSCR" 
(although  not  as  briskly). 

VoI14atlon/Verlf lcation 

The  goal  of  verification  and  validation  was  to  test 
the  programs  to  ensure  they  perform  as  expected,  providing 
valid  and  correct  output  from  legitimate  input  data. 
Verification  of  the  attached  programs  was  accomplished  in 
two  steps. 

Individual  modules  were  first  tested  and  re-tested 
during  the  design  phase  to  guarantee  they  accurately 

performed  only  those  functions  they  were  created  to  do. 
Input  and  output  test  data  came  from  two  scenarios  provided 
by  the  Coast  Guard.  Once  the  modules  passed  these 
preliminary  inspections,  they  were  combined  to  form  the 
overall  program.  This  program  was  then  subjected  to 
additional  testing  to  verify  it  still  worked  as  desired 
grinding  out  identical  answers  to  those  supplied  by  USCG. 

Confirming  program  "correctness"  under  a  variety  of 
test  conditions,  or  "validation,"  was  generously 


accomplished  by  the  Coast  Guard.  The  attached  programs  were 
downloaded  to  their  Convergent  Technologies  C-3  Data 
System  mainframe  computer  system  in  New  York  in  September  of 
1984.  Then,  National  SAR  School  faculty  members  ran 
numerous  school  and  real-world  problems  to  test  program 
limits  and  accuracy.  The  result  --  in  each  case  the  search 
planning  software  performed  flawlessly,  generating  answers 
identical  to  those  expected. 


would  certainly  discourage  widespread  dissemination  of  the 
software) .  Instead,  they  could  now  download  the  source  code 
directly  to  disk  Cin  seconds)  or  via  modem 
telecommunications  to  their  microcomputers  (in  minutes). 

<3)  The  first  of  the  three  attached  programs. 
Aerospace  Drift  Determination,  suddenly  achieved  great 
significance  upon  the  discovery  that  the  Coast  Guard's 
commercially-procured,  surface  search  planning  software 
(CASP)  lacks  the  crucial  capability  to  determine  aerospace 
drift  (glide,  fall,  and/or  parachute  winds)  vectors.  USCG 
National  SAR  School  faculty  members  spoke  of  using  this 
program  for  more  than  just  refresher  training  purposes. 

The  only  unavoidable  complaint  directed  against  the 
attached  software  was  actually  a  criticism  of  the 
programming  language  used.  SAR  School  faculty  members 
disliked  the  abrupt  way  in  which  programs  aborted  when  a 
fatal  Pascal  error  was  input  (e.g.,  input  of  a  character 
where  an  integer  was  requested  --  this  particular  problem 
was  corrected  by  module  redesign  and  a  change  of  input 
variable  type) . 

Recommendations  For  Further  Research 

None.  This  is  not  to  assert  the  design  of  the 
attached  software  could  not  be  improved.  However,  such 
embellishment  could  easily  exceed  scarce  microcomputer 
memory  limits,  thus  violating  the  prime  objective  of  this 


entire  effort 


The  only  feature  which  could  be  added  to  the  attached 
package  is  search  area  “Effort  Allocation*’  --  dividing  the 
search  area  into  sub-areas  suited  to  the  capabilities  and 


duration  of  each  available  search  craft  and  having  the 
highest  probability  of  containing  the  search  ob;ject. 
However,  optimal  effort  allocation  involves  the  capability 
of  weighted  multi-criteria  decision  making  and  geographic 
map  generation,  both  of  which  are  better  suited  for 
mainframe  computer  implementation  due  to  the  large  amounts 
of  memory  and  processing  required.  In  fact,  the  Coast 
Guard's  mainframe  CASP  program  does  both  in  an  effort 
allocation  program  far  beyond  the  reach  of  current 


microcomputer  capability  <8) 
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Appendix  A 
DEFINITION  OF  TERMS 


Gloeearv 

AEROSPACE  ASSET  -  Any  object  of  value  which  operates  in  or 
passes  through  the  Earth's  atmosphere,  e.g.  aircraft, 
spacecraft,  debris  of  same,  pilots,  astronauts,  etc. 

AEROSPACE  DRIFT  -  The  ground  distance  an  aerospace  asset 
could  possibly  cover  during  its  descent. 

AEROSPACE  POSITION  -  The  initial  position  of  an  aerospace 
asset  at  the  time  of  reentry,  engine  failure,  or  aircrew 
ejection/bailout 

BAILOUT  TRAJECTORY  -  Momentum  imparted  in  the  direction  of 
travel  by  an  aircraft  movement  upon  an  airman  who  has 
ejected  or  bailed  out. 

CONFIDENCE  FACTOR  -  Values  ranging  from  0.125  to  0.375  used 
to  obtain  drift  error.  Confidence  factor  is  the  search 
planners  estimate  of  how  reliable  his/her  information  is  in 
terms  of  initial  distress  position,  sea  current,  wind 
(•  current,  and  leeway.  If  one  or  more  of  these  factors  are 

poorly  defined,  confidence  is  low  and  a  value  of  0.30  is 
used.  If  all  four  factors  are  known  with  high  certainty,  a 
value  of  0.125  is  used. 

CRASH  -  A  landing  in  which  the  vertical  velocity  is  so  great 
and  the  time  spent  in  reducing  it  to  zero  is  so  brief  that 
the  acceleration  and  hence  the  forces  acting  become  so  great 
as  to  result  in  structural  failure. 

DATUM  -  The  probable  location  of  the  search  object  corrected 
for  drift  at  any  particular  moment  during  the  mission. 

DATUM  MINIMAX  -  The  datum  point  established  midway  between 
the  resultant  minimum  drift  position  and  the  resultant 
maximum  drift  position. 

DEAD  RECKONING  -  Determination  of  one's  position  by 
monitoring  course  and  adding  the  additional  displacement 
since  passing  last  position.  This  displacement  is 
calculated  by  multiplying  one's  speed  by  the  time  elapsed 
since  passing  last  position. 

DRIFT  -  The  vectorial  movement  (direction  and  distance)  of 
*  the  search  object  caused  by  momentum,  drag,  wind,  water,  or 

other  external  forces. 
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HEADING  -  The  horizontal  direction  in  which  an  aerospace  or 
surface  aaaet  ia  pointing/moving. 

INDIVIDUAL  DRIFT  ERROR  -  Individual  drift  multiplied  by 
Confidence  Factor. 

INITIAL  POSITION  ERROR  -  The  assumed  error  of  the  initially 
reported  position  of  a  search  and  rescue  incident. 

KNOT  -  A  measurement  unit  of  speed  equivalent  to  one 
nautical  mile  per  hour. 

LEEWAY  -  The  movement  of  a  search  object  caused  by  being 
pushed  through  the  water  by  local  winds  acting  against  the 
exposed  surface  of  the  object.  This  motion  ia  distinct  from 
the  effect  of  the  wind  on  the  surface  current  (see  WIND 
CURRENT  on  next  page) . 

LAST  KNOWN  POSITION  -  The  position  last  witnessed,  reported, 
or  computed  as  a  dead-reckoning  position  from  a  previously- 
reported  and  reliable  position  of  the  search  object. 

PARACHUTE  DRIFT  -  The  combined  drift  of  parachute  glide 
ratio  and  its  displacement  due  to  winds  aloft  while  the 
parachute  is  descending. 

SAFETY  FACTOR  -  A  factor  used  to  increase  Total  Probable 
Error  to  a  length  that  insures  greater  than  a  50* 
probability  that  the  object  is  in  the  calculated  search 
area. 

SEA  CURRENT  -  1.  Current  present  in  the  open  sea  caused  by 
factors  other  than  local  winds  (combined  with  wind  current 
to  form  total  water  current  in  oceanic  areas);  2.  The 
permanent,  large  scale  flow  of  ocean  waters,  also  called 
“slope  current."  Not  usually  computed  for  an  Incident  of 
less  than  four  hours  of  drift,  unless  the  target  is  in  a 
relatively  high  speed  current  area  such  as  the  Gulf  Stream. 

SEARCH  AND  RESCUE/RECOVERY  -  The  employment  of  available 
personnel  and  facilities  in  rendering  aid  to  persons  and 
property  in  distress. 

SEARCH  AREA  -  That  area  calculated  to  contain  the  search 
object  and  subject  to  intensive  scrutiny.  Because  there  are 
few  search  patterns  which  are  easily  adaptable  to  a  circular 
search  area,  a  square  ia  circumscribed  around  the  first 
search  circle.  Thus  a  square  search  area  with  sides  equal 
to  twice  the  search  radius  and  centered  at  datum  is 
established . 
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SEARCH  CRAFT  ERROR  -  Error  introduced  by  the  less  than  100% 
navigational  accuracy  of  equipment  installed  aboard  specific 
j  types  of  search  craft. 

SEARCH  RADIUS  -  The  radius  of  a  circle  centered  on  a  datum 
point.  It  has  a  length  equal  to  the  Total  Probable  Error 
plus  an  additional  safety  length  to  insure  greater  than  50% 
probability  that  the  object  is  in  the  search  area. 

I 

SET  -  The  compass  direction  towards  which  a  current  flows, 
or  the  direction  an  object  moves  under  the  influence  of  wind 
and/or  current. 

SURFACE  DRIFT  -  The  vector  sum  of  the  average  sea  current, 
4  wind  driven  current,  and  leeway. 

SURFACE  POSITION  -  The  surface  position  (in  latitude  and 
longitude)  of  the  search  object  on  the  Earth's  surface. 

TIDAL  CURRENT  -  Water  currents  influenced  predominantly  by 
I  reversing,  coastal  rotary,  or  river  currents,  or  their 

combinations . 

TOTAL  DRIFT  ERROR  -  The  sum  of  all  individual  drift  errors 
during  a  certain  time  interval. 

I  •  TOTAL  PROBABLE  ERROR  -  That  error  in  datum  within  which  it 

is  assumed  there  is  a  50%  chance  that  the  search  object  is 
located.  It  is  the  square  root  of  the  sum  of  the  squares  of 
the  Total  Drift  Error,  the  Initial  Position  Error,  and  the 
Search  Craft  Error. 

VECTOR  -  A  quantity  having  both  direction  and  magnitude. 

WIND  BEARING  -  The  compass  direction  toward  which  a  wind  is 
blowing . 

WIND  CURRENT  -  The  current  generated  by  the  wind  acting  upon 
the  surface  of  the  water  for  a  period  of  time,  affected  by 
the  wind's  velocity  and  duration. 

WIND  DIRECTION  -  The  compass  direction  from  which  a  wind  is 
.  blowing. 


Acronyms 

AFIT  -  Air  Force  Institute  of  Technology 
AGL  -  Above  Ground  Level  (altitude) 


AFM  -  Air  Force  Manual 


CASP  -  Computer-Assisted  Search  Planning 

COMDXNST  -  USCG  Commandant's  Instructions  (regulations) 
Dmax  -  maximum  Drift  distance 
Dmin  -  minimum  Drift  distance 

DTG  -  Date-Time-Group  (e.g.  ”2910002  Jul”  is  equivalent  to 

July  29th  at  1000-hours  zulu  time.) 

ETA  -  Estimated  Time  (of)  Arrival 

FN  -  (USA)  Field  Manual 

GIGO  -  "Garbage-In,  Garbage-Out"  (computer  proverb) 

KM  -  Kilometer 

LKP  -  Last  Known  Position 

MINIMAX  -  Point  halfway  between  maximum  and  minimum 
HSL  -  Mean  Sea  Level  (altitude) 

NAUT  -  Nautical  mile 

RAM  -  (Computer)  Random  Access  Memory  (space) 

SAR  -  Search  and  Rescue/Recovery 

SSDD  -  Single-Sided,  Double-Density  (magnetic  disk) 

TAC  -  (USAF's)  Tactical  Air  Command 
USA  -  United  States  Army 
USAF  -  United  States  Air  Force 
USCG  -  United  States  Coast  Guard 
USN  -  United  States  Navy 

Xcomponent  -  The  horizontal  component  of  a  vector  used  in 
vector  addition 

Ycomponent  -  The  vertical  component  of  a  vector  used  in 
vector  addition 
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Appendix  B 

SOFTWARE  USER'S  GUIDE 

Overview 

The  purpose  of  this  guide  is  to  provide  all  the 
information  a  user  needs  to  employ  the  attached  aerospace 
asset  search  planning  programs  properly.  The  user  must  have 
a  microcomputer  equipped  with  a  minimum  of  64K  RAM  and  one 
disk  drive.  The  three  programs  generate  input /output  data 
record  files  during  run-time  which  easily  fit  any  standard 
80-column-width  printer  at  ten  characters-per-inch  (no  "line 
wrap-around") .  These  search  planning  programs  are 
recommended  for  training  use  only,  especially  if  human  life 
is  at  risk.  Also,  due  to  the  possibility  of  undetected 
errors,  user's  should  be  totally  familiar  with  search 
planning  methodology  before  attempting  to  use  this  software 
(completion  of  the  USCG  National  SAR  School  search  planning 
course  is  highly-encouraged). 

goftwoy  Purpose 

The  attached  programs  provide  the  user  with  the 
necessary  automated  tools  to  complete  search  area  planning 
for  missing  persons  or  aerospace  objects  in  the  Earth's  most 
complex  drift  environment  --  the  ocean.  The  first  program 
calculates  drift  forces  on  a  falling,  gliding,  or 
parachuting  aerospace  object  to  determine  the  displacement 
vector  from  its  last  known  coordinates.  The  second  program 
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calculates  wind  current,  sea  current,  and  leeway  drift 
forces  on  a  surface  object  to  determine  the  maximum  and 
minimum  displacement  vector  from  its  last  known  position. 
Finally,  the  third  program  combines  previously  input  data 
and  computed  vectors  to  determine  the  center  and  four  corner 
points  of  the  search  area  with  the  highest  probability  of 
containing  the  missing  person(s)  or  object. 

Data  Required 

To  calculate  these  drift  vectors  and  the  search  area, 
the  programs  request  specific  data  inputs  from  the  user. 
Each  program  requests  different  data  with  some  duplication 
for  continuity.  A  detailed  description  of  the  input  data 
required  for  each  of  the  three  attached  programs  follows. 

Aerospace  Drift  Program  Inputs 

In  the  Aerospace  Drift  Program  the  user  will  be  asked 

for: 

(1)  Last  known  aerospace  position  and  time  (month, 
year,  date-time-group,  latitude,  and  longitude); 

(2)  Surface  altitude  or  terrain  height; 

(3)  Altitude  (Incident  altitude)  at  which  the  object 
began  it's  glide,  fall,  and/or  parachute  deployment,  as 
applicable; 

(4)  Altitude  lost  during  glide,  fall,  and/or 

parachute  deployment,  as  applicable; 


(S)  Object's  glide  ratio,  descent  heading  and  rate 


as  applicable 


(6)  Wind  directions  and  velocities  at  every  reported 
level  up  to  incident  altitude  (plus  one  or  two  more  above 
it)  with  the  opportunity  to  verify  or  change  the  input 
before  committing  it  to  internal  calculations; 

(7)  Parachute  drift  distance  and  chute  descent  rate 
from  National  SAR  Manual  tables,  if  applicable  (10:8-11 
through  8-12);  and, 

(8)  Whether  the  aerospace  object  was  a  medium-  or 
high-performance  jet  aircraft  (as  defined  by  the  National 
SAR  Manual)  to  determine  pilot/crew  ejection  distance,  if 
applicable  (10:8-8). 

Once  the  run  is  complete,  the  Aerospace  Drift  program 
creates  an  external  text  file  ("calculation  audit  trail") 
named  "AERODATA”  detailing  user  inputs  and  program  outputs. 

Surface  Drl*t  Program  Inputs 

In  the  Surface  Drift  Program  the  user  will  be  asked 

for: 

(1)  Last  known  surface  position  and  time  (month, 
year,  date-time-group,  latitude,  and  longitude); 

(2)  Desired  (Datum)  surface  search  time  (month,  year, 
date-time-group) ; 

(3)  To  confirm  the  search  object  is  more  than  20 
miles  (32  km)  off  shore  in  water  greater  than  100  feet  (32 
m)  in  depth  as  prescribed  for  this  search  planning  method 
by  the  National  SAR  Manual  (10:8-16a); 


(4)  Approximate  houre  elapsed  from  last  known 
position  time  to  search  initialization; 

(5)  Sea  wind  directions  and  velocities  (reported  at 
0000,  0600,  1200,  and  1800  Zulu  time)  for  at  least  a  48-hour 
period  from  last  known  position  time  to  search 
initialization  time  (User  must  exercise  caution  to  input 
this  particular  data  correctly  the  first  time.  It  is  not 
echoed  back  for  user  verification  and  update  due  to  scarce 
microcomputer  memory  limits.  If  an  input  error  is  made, 
followed  by  a  carriage  return,  the  user  must  manually  abort 
and  rerun  the  program  to  obtain  reliable  calculations.); 

(6)  Wind  latitude  coefficient  directions  and 
magnitudes  for  the  appropriate  latitude  from  the  National 
SAR  Manual  (10: 8- 16c  through  8-16d>  with  the  opportunity  to 
verify  or  change  the  input  before  committing  it  to  internal 
calculations; 

(7)  Choose  from  drift  rate,  drift  time,  or 
directional  drift  uncertainties.  Then  input  minimum  and 
maximum  leeway  drift  speeds,  minimum  and  maximum  hours  of 
drift,  and/or  the  maximum  expected  drift  divergence  angle 
(from  the  National  SAR  Manual),  as  applicable  (10:8-15); 

(8)  Sea  current  drift  direction,  velocity,  and 
published  source  of  information  (10:8-161  through  8-16j); 

(9)  Total  observed  water  current,  if  applicable; 

and. 
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(10) 


Tidal  current  direction  and  velocity 


if 


applicable  (10:8-22). 

Once  the  run  ia  complete,  the  Surface  Drift  program  creates 
an  external  text  file  (“calculation  audit  trail")  named 
“SEADATA"  detailing  user  inputs  and  program  outputs. 

Search  Area  Determination  Program  Inputs 

In  the  Search  Area  (Determination)  Program  the  uaer 
t 

will  be  aaked  for: 

(1)  Last  known  surface  coordinates  (latitude  and 
longitude) ; 

i 

(2)  Previously-calculated  total  aerospace  drift 
direction  and  distance,  if  applicable; 

,  (3)  Aerospace  drift  error  confidence  factor  from  the 

I  (• 

National  SAR  Manual  (10:8-27); 

(4)  Sum  of  previously-calculated  drift  errors,  if 
applicable; 

(5)  Previously-calculated  minimum  and  maximum  total 
surface  drift  direction  and  distance; 

(6)  Plotted  distance  between  these  surface  drift 
positions; 

(7)  Surface  drift  error  confidence  factor  from  the 
National  SAR  Manual  (10:8-27); 

I 

(8)  Search  object  and  search  craft  navigational  fix 
and  dead-reckoning  errors  from  the  National  SAR  Manual 


(9)  Whether  thia  is  the  first  through  the  fifth 
search  effort  (to  determine  total  probable  error  factor) 
<10:a-32a  through  8-32b) . 

Once  the  run  is  complete,  the  Search  Area  program  creates  an 
external  text  file  (“calculation  audit  trail**)  named 
“AREADATA"  detailing  user  inputs  and  program  outputs. 

Software  Maintenance  Responsibility 

The  author  makes  no  express  or  implied  warranty  of  any 
kind  with  regard  to  the  attached  programs.  This  includes, 
but  is  not  limited  to  the  implied  warranty  of  fitness  for 
any  particular  purpose.  The  author  shall  not  be  liable  for 
incidental  or  consequential  damages  in  connection  with  or 
arising  out  of  the  furnishing,  use,  or  performance  of  these 
programs. 

Published  changes  to  the  National  Search  and  Rescue 

Manual  or  errors  detected  by  users  should  be  brought  to  the 

attention  of  the  author: 

Captain  D.  R.  Douglas,  USAF 

2065  East  3300  South 

Salt  Lake  City,  UT  64109  , 

who  will  make  every  effort  to  update  or  correct  the  attached 
software  and  re-release  it  to  public  domain  under  . a 
different  version  number.  The  attached  "Microcomputer 
Application  of  Aerospace  Asset  Search  Planning"  programs  are 


released  as  versions  1.0  or  1.1 


SAMPLE  PROBLEM  /  SOFTWARE  DEMONSTRATION 


Ovrvl>w 

This  section  introduces  a  sample  search  planning 
problem  from  the  USCG  National  Search  and  Rescue  School. 
The  data  presented  is  then  input  into  the  attached  programs 
and  solutions  generated  to  demonstrate  software  execution. 
Appearing  in  brackets  {  )  beside  some  of  these  program 
solutions  are  answers  provided  by  the  Coast  Guard,  as  well 
as  a  percentage  error  difference  between  the  two  solutions 
due  to  the  previously-described  internal  rounding  errors, 
etc.  .  For  example: 

Program  solution  USCG  solution 

X  =  0.950  (X  *  0.974;  2.464*  error) 

Y  =  0.892  (Y  *  0.887;  0.0056*  error) 

Sample  Problem  Introduction 

Situation:  At  1000Z,  29  April  1984  a  distress  call 

was  received  from  an  ASAT-equipped  (anti-satellite  weapon). 
Air  Force  F-15  jet  fighter.  The  pilot  advised  he  was 
ejecting  at  10,000  feet  AGL  (above  ground  level)  in  position 
39-15.0  North  64-30.0  West.  At  time  of  bailout,  the  pilot's 
high-performance  aircraft  was  on  an  satellite  interception 
heading  of  360-degrees  Magnetic  (348-degrees  True, 
accounting  for  magnetic  variation  of  12-degrees  West  at  that 
location).  According  to  the  parent  command  (TAC) ,  F-15 


ejection  seats  are  equipped  with  self-deploying,  single-man, 
orange  life  rafts  with  built-in  drogue  (sea  anchors) . 

The  first  available  search  craft,  an  Air  Force  HC-130H 
from  the  Aerospace  Rescue  and  Recovery  Service,  will  arrive 
on  scene  at  approximately  291900Z  Apr  1984  to  begin  the 
search.  A  Russian  trawler  has  also  signalled  intentions  to 
divert  and  provide  assistance  with  an  ETA  (estimated  time  of 
arrival)  in  the  incident  area  of  300600Z. 

The  following  meteorological  data  has  been  obtained 
for  the  vicinity  of  39-15N  64-30W: 

291000Z  UPPER  WINDS  FORECAST  FROM  WSFO,  JFK,  NEW  YORK 


Surface 

070/15 

(070-degrees  at 

15  knots) 

3000 

120/30 

18000 

210/25 

6000 

130/25 

24000 

210/20 

9000 

170/48 

30000 

210/30 

12000 

165/52 

34000 

215/65 

SURFACE  WIND  HISTORY/FORECAST  FROM  USAF  AIR  WEATHER  SERVICE 


270000Z 

100/15 

290000Z 

040/25 

0600Z 

070/18 

0600Z 

065/20 

12002 

065/10 

1200Z 

074/20 

18002 

080/20 

18002 

077/18 

2800002 

040/30 

3000002 

090/10 

06002 

035/40 

0600Z 

090/20 

12002 

040/40 

1200Z 

065/15 

18002 

045/20 

1800Z 

050/20 

USN  Publication  1400-NA  6  for  the  approximate  position 
shows  sea  current  set  =  071-degrees  True  at  1.1  knots. 


Directional  drift  uncertainty  is  assumed  with  a  leeway  drift 
divergence  of  plus-or-minus  35-degrees  (from  the  National 
SAR  Manual)  . 


Use  the  attached  programs  to  determine: 

(1)  Average  winds  aloft 

(2)  Aerospace  drift  vector 

(3)  Average  Surface  winds 

( 4 )  Wind  current  vector 

(5)  Leeway  vector 

(6)  Maximum  &  minimum  datum  vectors 

(7>  Search  area  size 

(8)  Search  area  center  point  coordinates 

(9)  Search  area  corner  point  coordinates 


Sample  Problem  Program  Runa 

<<  RUN  FIRST  PROGRAM:  AEROSPACE  DRI  F  T  >> 
/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


. . . . . . . . . . . . . 

(«  SEARCH  PLANNING  SOFTWARE  (PROGRAM  #1  OF  3)  •) 
(•  TITLE:  AERODRIF.COM  (Aerospace  Drift  Algorithm)  «> 
(«  VERSION:  1.1  for  CP/M  Operating  System  •) 
(•  DATE  WRITTEN:  September  1984  •) 
(*  LICENSE:  COPYRIGHT  1984  D.  RICK  DOUGLAS  •> 
. . . . . . . . . . . . . 


The  author  makes  no  express  or  implied  warranty  of  any  kind  with  regard  to 
this  program  material,  including,  but  not  limited  to,  the  implied  warranty  of 
fitness  for  a  particular  purpose.  The  aithor  shall  not  be  liable  for 
incidental  or  consequential  damages  in  connection  with  or  arising  out  of 
furnishing,  use,  or  performance  of  this  program.  The  reader  MUST  HAVE  a  solid 
understanding  of  search  and  rescue  methodology  before  using  this  software  in 
making  decisions  where  human  life  is  at  risk.  In  fact,  since  no  amount  of 
testing  can  uncover  100*  of  program  errors,  this  program  is  recommended  for 
training  use  only.  Prior  attendance  at  the  United  States  Coast  Guard's 
National  SAR  School  is  highly-encouraged. 

WARNING!  . . . . . 

(*  THIS  SOFTWARE  MAY  BE  FREELY-DISTRIBUTED  PROVIDED  NO  FEE  •  ) 
(*  IS  CHARGED  AND  THIS  COPYRIGHT  NOTICE  IS  RETAINED  •) 
. . . . . . . . . . . 


PLEASE  HIT  RETURN  (Once  or  twice,  as  necessary)  TO  CONTINUE 


/\/\/\/\/\/\/ 


NEW 


SCREEN 


\/\/\/\/\/\/\ 


This  program  calculates  the  initial  surface  position  coordinates 
(latitude/longitude)  of  a  falling,  gliding,  or  parachuting 
aerospace  object  or  person.  If  these  coordinates  are  all  ready 
known,  or  the  search  object  did  not  fall  at  least  500  feet,  then 
enter  N  to  the  next  question  and  proceed  with  other  search 
planning  as  outlined  in  the  National  Search  and  Rescue  Manual. 

Do  you  wish  to  continue  with  this  prograa?  (y/n)  =>  Y 


/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


Please  enter  the  number  for  the  month  the  search  object  was 
at  the  last  known  position: 


Jan 

4  =  Apr 

7  =  JU1 

10 

a  Oct 

Feb 

5  =  Nay 

8  a  AUg 

11 

a  NOV 

Mar 

6  »  Jun 

9  a  Sep 

12 

*  Dec 

MONTH =>  4 

Please  enter  the  year  the  search  object  was  at  the  last  known 
position  (e.g.,  1985,  1986,  etc.) 

YEAR*>  198.4 


Please  enter  the  day-hour-minute  the  search  object  was  at  the 
last  known  position.  Enter  it  in  Z  DTG  (Zulu  Date-Time-Group) 
format.  For  example:  9:37  PM,  August  4,  would  appear  as 
042137  Greenwich-Mean  Time  <Z=0) . 

TIME  (Z  DTG) =>  291000 

Was  search  object's  last  known  latitude  north  or  south? 

(Enter  N  or  S)  Answer =>  N 

Please  enter  the  search  object's  last  known  latitude 
(For  example:  25-Degrees  45-Minutes  13-Seconds  =  25.4513) 
LATITUDE  =  >  39.15 

Was  search  object's  last  known  longitude  east  or  west? 

(Enter  E  or  W)  Answer =>  W 

Please  enter  the  search  object's  last  known  longitude 
(For  example:  160-Degrees  45-Minutes  13-Seconds  =  160.4513) 
LONGITUDE  ->  64.3 


Please  enter  the  surface  level  altitude  or  terrain  height 
(In  feet)  above  or  below  mean  sea  level.  Enter  a  zero  If 
altitude  equals  sea  level,  or,  enter  a  negative  altitude  if 
below  sea  level  (e.g.  Death  Valley,  California.). 

SURFACE  LEVEL/TERRAIN  HEIGHT  =>  0 

After  receiving  report  of  the  search  object's  last  known 
coordinates  (lat/long),  did  the  object  fall  or  glide  to  a 
lower  altitude  before  parachute(s)  opened  or  ground  contact 
was  Made?  (y/n)  =>  N 

After  receiving  report  of  the  search  object's  last  known 
coordinates  (lat/long),  did  the  object  successfully  use 
parachutes  to  descend?  (y/n)  =>  Y 

Approximate  (to  the  nearest  500  feet)  at  what  altitude 
above  mean  sea  level  (MSL)  did  the  parachute(a)  open? 

(Enter  a  zero  if  descent  began  below  500  feet  AGL) 
ALTITUDES  10000 


/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


PLEASE  ENTER  REPORTED  OR  FORECAST  WIND  DIRECTION  AND  VELOCITY 
FOR  EACH  KNOWN  ALTITUDE  WITHIN  THE  FOLLOWING  CONSTRAINTS: 

1.  You  auat  input  the  altitude,  wind  direction  (0  to  360),  and 
velocity  (0  to  99) ,  froa  surface  level  up  to  the  altitude  at 
which  the  power-off  descent  began  or  parachute(a)  opened, 
whichever  is  higher.  You  will  then  be  asked  to  enter  one 
higher  altitude  for  which  wind  data  is  known.  Finally,  you 
will  be  able  to  verify  your  input  data  before  any 
computations  are  made. 

2.  Altitudes  must  be  entered  in  rounded  thousands  of  feet, 
e.g.,  3000,  7000,  12000,  not  3500,  5200,  etc. 

3.  An  example  follows  of  input  altitude/winds  data  format: 

ALTITUDE  =  0  (Surface  level);  Enter  lowest  altitude  first! 

WIND  DIRECTION  =  330 
•  WIND  VELOCITY  =  25 

HIT  RETURN  (Once  or  twice,  as  necessary)  TO  CONTINUE 


/\/\/\/\/\/\/ 


NEW 


SCREEN 


\/\/\/\/\/\/\ 


Begin  altitude/wind  data  input  starting  with  surface  level  winds 

ALTITUDE 

0 

WIND  DIRECTION 

= 

70 

WIND  VELOCITY 

S 

15 

ALTITUDE 

S 

3000 

WIND  DIRECTION 

s 

120 

WIND  VELOCITY 

= 

30 

ALTITUDE 

= 

6000 

WIND  DIRECTION 

= 

130 

WIND  VELOCITY 

= 

25 

ALTITUDE 

s 

9000 

WIND  DIRECTION 

= 

170 

WIND  VELOCITY 

s 

48 

ALTITUDE 

r 

12000 

WIND  DIRECTION 

= 

165 

WIND  VELOCITY 

s 

52 

Enter  data  for 

just  one  sore,  higher  altitude. 

ALTITUDE 

= 

18000 

WIND  DIRECTION 

= 

210 

WIND  VELOCITY 

r 

25 

/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


1. 

Winds 

at 

0 

feet: 

70  degrees 

at 

15 

knots 

2. 

Winds 

at 

3000 

feet: 

120  degrees 

at 

30 

knota 

3. 

Winds 

at 

6000 

feet: 

130  degrees 

at 

25 

knots 

4. 

Winds 

at 

9000 

feet: 

170  degrees 

at 

48 

knots 

5. 

Winds 

at 

12000 

feet: 

165  degrees 

at 

52 

knots 

6. 

Winds 

at 

18000 

feet: 

210  degrees 

at 

25 

knots 

Are  theae  altitudes,  wind  directions,  and  wind 

velocities  all  correct?  (y/n)  T  (INPUT  ERROR  (INTENTIONAL)) 

(CAUSES  QUESTION  TO  REPEAT) 

Are  these  altitudes,  wind  directions,  and  wind 
velocities  all  correct?  (y/n)  Y 


C-6 


/\/\/\/\/\/\/ 


NEW 


SCREEN 


\/\/\/\/\/\/\ 


Wind  Data  (Glide  or  Parachute  Opening  Altitude  to  surface  level  AGL) 
With  Velocity  Components  Calculated  Prior  To  Vector  Addition: 


Winds  at 
Winds  at 
Winds  at 
Winds  at 
Winds  at 
Winds  at 


18000  feet 
12000  feet 
9000  feet 
£000  feet 
3000  feet 
0  feet 


210  degrees  at 
165  degrees  at 
170  degrees  at 
130  degrees  at 
120  degrees  at 
70  degrees  at 


0  knots 
0  knots 
120  knots 
75  knots 
105  knots 
15  knots 


Xcomponent  =  183.319 

Ycoaponent  =  -213.756 


(  183.319;  0*  ERROR) 
{-213.756;  0k  ERROR) 


The  average  winds  aloft  affecting  the  parachute  drift  of 

the  aerospace  object  are  bearing  to  319  degrees  at  28.2  knots. 


Refer  to  the  "Parachute  Drift  Table"  in  the  National 
Search  and  Rescue  Manual  (approximately  page  8-12)  and 
interpolate  parachute  drift  distance  (in  nautical  miles) 
from  the  published  chart.  For  example:  For  a  parachute 
opening  altitude  of  3000  feet  (915  meters)  and  winds  aloft 
averaging  15  knots,  the  parachute  drift  distance 
interpolates  to  0.675  nautical  miles). 

PARACHUTE  DRIFT  DISTANCE  =>  3.94 


Refer  to  the  "Parachute  Descent  Data  Table"  in  the  National 
Search  and  Rescue  Manual  (approximately  page  8-11)  and 
determine  the  parachute  descent  rate  (in  feet-per-aecond) 
from  the  published  chart.  For  example:  A  28-foot  (C-9) 
escape  parachute  at  7000  feet  lowers  a  person  at  a  rate  of 
21.4  ft/aec,  while  the  three,  83-ft. -diameter  parachutes 
on  the  Apollo  apace  capsule  allowed  for  a  32.5  ft/sec 
descent  at  this  same  altitude. 

PARACHUTE  DESCENT  RATE  =>  21.4 


Please  enter  descent  or  bailout  heading,  if  known 
(Enter  361  if  not  known).  HEADING  (0-361)  =>  348 

If  aerospace  object  is  a  pilot  ejecting  from  a 
crippled  aerospace  vehicle,  was  that  vehicle: 

1.  A  turboprop  or  medium  performance  jet  aircraft 

2.  A  high-performance  jet  aircraft 

3.  Neither  of  the  above 

ENTER  A  1,  2,  or  3  =>  1 

Xcomponent  =  -2.669  (-2.671;  0.0075k  ERROR) 
Ycomponent  =  3.480  (  3.481;  0.0029k  ERROR) 
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/\/\/\/\/\/\/ 


NEW 


SCREEN 


\/\/\/\/\/\/\ 


A  record  of  significant  input  and  output  data  used  during  this 
prograa  run  is  stored  in  an  external  file  named  "AERODATA". 

If  you  desire  to  keep  this  record  permanently,  please  renaae 
file  AERODATA  before  running  this  prograa  again! 


<<  FIRST  PROGRAM  OUTPUT  >> 

NEW  SCREEN  \/\/\/\/\/\/\ 


Missing  aerospace  object/pilot(s)  last  known  position:  39-15  North 


Tiae:  291000Z  4/1984 

Bailout/Parachute  opening  altitude 
Surface  level  or  terrain,  height 
Wind  bearing  affecting  para-descent 
Wind  velocity  affecting  para-descent 
Parachute  table  descent  rate 
Parachute  drift  table  distance 
Ejection  displacement 
Total  aerospace  drift  bearing 
Total  aerospace  drift  distance 
Total  tiae  of  parachute  descent 


64-30  West 

10000  feet  MSL 
0  feet  MSL 
319  degrees  True 
28.2  knots 

21.4  feet  per  second 
3.9  nautical  niles 
0.5  nautical  miles 
323  degrees  True 
4.4  nautical  miles 
7.8  minutes 


Wind  Data  Used  To  Calculate  Above  Results: 


1. 

Winds 

at 

0 

feet: 

70  degrees 

at 

15 

knots 

2. 

Winds 

at 

3000 

feet: 

120  degrees 

at 

30 

knots 

3. 

Winds 

at 

6000 

feet: 

130  degrees 

at 

25 

knots 

4. 

Winds 

at 

9000 

feet: 

170  degrees 

at 

48 

knots 

5. 

Winds 

at 

12000 

feet: 

165  degrees 

at 

52 

knots 

6. 

Winds 

at 

18000 

feet: 

210  degrees 

at 

25 

knots 

SURFACE  DRIFT  >> 

SCREEN  \/\/\/\/\/\/\ 


«  RUN  SECOND  PROGRAM: 
/\/\/\/\/\/\/  NEW 


. . . . . . . . . ... . •••••••) 

(•  SEARCH  PLANNING  SOFTWARE  (PROGRAM  #2  OF  3)  «> 
<*  TITLE:  SURFDRIF.COM  (Surface  Drift  Algorithm)  «> 
<«  VERSION:  1.1  for  CP/M  Operating  System  •  > 
(*  DATE  WRITTEN:  September  1984  ») 
(•  LICENSE:  COPYRIGHT  1984  D.  RICK  DOUGLAS  •  ) 
(•••••••••••• . .. . . . . . . 


The  author  makes  no  express  or  implied  warranty  of  any  kind  with  regard  to 
this  program  material,  including,  but  not  limited  to,  the  implied  warranty  of 
fitness  for  a  particular  purpose.  The  author  shall  not  be  liable  for 
incidental  or  consequential  damages  in  connection  with  or  arising  out  of 
furnishing,  use,  or  performance  of  this  program.  The  reader  MUST  HAVE  a  solid 
understanding  of  search  and  rescue  methodology  before  using  this  software  in 
making  decisions  where  human  life  is  at  risk.  In  fact,  since  no  amount  of 
testing  can  uncover  100*  of  program  errors,  this  program  is  recommended  for 
training  use  only.  Prior  attendance  at  the  United  States  Coast  Guard's 
National  SAR  School  is  highly-encouraged. 

. . .  WARNING!  . . . . . 

(*  THIS  SOFTWARE  MAY  BE  FREELY-DISTRIBUTED  PROVIDED  NO  FEE  •  ) 
(*  IS  CHARGED  AND  THIS  COPYRIGHT  NOTICE  IS  RETAINED  *) 
. . . . . . . . . . . . 

PLEASE  HIT  RETURN  (Once  or  twice,  as  necessary)  TO  CONTINUE 


y\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


Given  the  initial  surface  position  coordinates  (latitude  and 
longitude)  of  an  object  on  the  ocean's  surface  and  starting 
date/time,  this  program  calculates  an  updated  surface  position 
(Datum  point)  or  search  area  for  a  specified  (Datum)  time.  If 
the  updated  surface  position  coordinates  are  all  ready  known, 
then  enter  N  to  the  next  question  and  proceed  with  other  recovery 
planning  as  outlined  in  the  National  Search  and  Rescue  Manual. 


P.S.  Run  this  program  TWICE  if  the  number  of  hours  of  search 
object  drift  is  uncertain.  On  the  first  run,  enter  data  only 
for  the  SHORTER  drift  period  (later  drift  start  time).  After 
the  program  calculates  the  Average  Surface  Wind  and  Wind  Current 
vectors,  record  them,  ABORT  the  program  run,  and  CLEAR  your 
microcomputer's  memory.  Then  rerun  the  entire  program,  making 
sure  to  enter  data  for  the  LONGER  drift  period  (earlier  drift 
start  time) .  Enter  the  vectors  you  recorded  above  when  asked 
by  the  program. 


Do  you  wish  to  continue  with  this  prograa?  (y/n)  =>  Y 


/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


Please  enter  the  nuaber  for  the  aonth  the  search  object  was 
at  the  last  known  position: 

1  *  Jan  4  =  Apr  7  =  Jul  10  *  Oct 

2  =  Feb  5  *  Nay  8  *  Aug  11  =  Nov 

3  =  Mar  6  -  Jun  9  =  Sep  12  =  Dec 

LAST  KNOWN  POSITION  N0NTH=>  4 

Please  enter  the  year  the  search  object  was  at  the  last  known 
position  <e.g.,  1985,  1986,  etc.) 

LAST  KNOWN  POSITION  YEAR=>  1984 


/\/\/\/\/\/\/  NEW  SCREEN  \/\, V/\/\/\/\ 


Please  enter  the  day-hour-ainute  (TO  THE  NEAREST  HOUR)  the 
search  object  was  at  the  last  known  position.  Enter  it  in 
Z  DTG  (Zulu  Date-Tiae-Group)  foraat.  For  exaaple:  9:37  PM, 
August  4,  should  appear  as  042200  Greenwich -Mean  Tlae  (2=0). 


If  the  nuaber  of  hours  of  search  object  drift  is  uncertain, 
you  aust  run  this  prograa  twice  (as  aentioned  earlier).  On 
the  first  run  enter  here  the  tiae  the  SHORTER  drift  period 
started  (LATER  than  the  last  known  position  tiae).  On  the 
second  run,  or  if  two  runs  are  not  applicable,  enter  here  the 
the  LKP  tiae  as  requested  above: 

LAST  KNOWN  POSITION  TIME  (Z  DTG)=>  291000 


/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


Was  search  object's  last  known  latitude  north  or  south? 
(Enter  N  or  S)  Answer =>  N 

Please  enter  the  search  object's  last  known  latitude 
(For  exaaple:  25-Degrees  45-Minutes  13-Seconds  =  25.4513) 
LATITUDE  =>  39.1848 

Was  search  object's  last  known  longitude  east  or  west? 
(Enter  E  or  W)  Answer =>  W 
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Please  enter  the  search  object's  last  known  longitude 
(For  exasple:  160-Degrees  45-Minutes  13-Seconds  s  160.4513) 
LONGITUDE  =  >  64.3345 


/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


Now  you  will  be  asked  to  enter  the  year,  aonth,  and  date/tiae  for 
the  desired  Datua  position,  which  MUST  be  later  than  the  tlae  you 
just  entered  for  the  last  known  position! 

Please  enter  the  desired  Datua  aonth: 

1  *  Jan  4  =  Apr  7  =  Jul  10  =  Oct 

2  =  Feb  5  =  May  6  =  Aug  11  =  Nov 

3  =  Mar  6  -  Jun  9  *  Sep  12  *  Dec 

DATUM  MONTH- >  4 

Please  enter  the  desired  Datua  year  (e.g.,  1985,  1986,  etc.) 

DATUM  YEAR=>  1984 


Please  enter  the  desired  Datua  day-hour-alnute  (TO  THE  NEAREST  HOUR) . 
Enter  it  In  2  DTG  (Zulu  Date-Tiae-Group)  foraat.  For  exaaple: 

9:37  PM,  August  4,  should  appear  as  042200  Greenwich-Mean  Tine  (2-0). 
DATUM  TIME.  (Z  DTG)=>  291800 


/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


This  prograa  includes  wind  current  calculations  to  deteraine 
Datua.  However,  according  to  the  National  SAR  Manual,  wind 
currents  are  usually  ignored  in  coastal,  lake,  river,  and 
harbor  areas  due  to  the  aany  variable  effects  froa  the  water- 
land  interface.  This  prograa  is  baaed  on  the  aasuaption  of 
open-sea  search  where  land  Basses  do  not  interfere  with  the 
action  of  the  wind  on  the  water  or  on  the  currents  generated 
by  thea.  A  rule  of  thuab  is  to  calculate  wind  currents  when 
water  depths  are  greater  than  100  feet  (32  aetera)  and  at 
distances  of  20  ailes  (32  kiloneters)  or  greater  froa  shore. 
Wind  currents  are  not  usually  used  inside  these  Halts 
except  where  local  knowledge  Bakes  it  possible  to  estiaate 
one.  This  is  especially  true  where,  close  to  shore,  the 
water's  depth  increases  rapidly. 


Do  you  wish  to  continue  with  this  prograa?  Cy/n)  =>  Y 


/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


Please  enter  the  nuaber  of  hours  elapsed  (to  the  NEAREST 
HOUR)  froa  the  last  known  surface  position  (LKP)  tiae  to 
the  desired  Datua  tiae. 


If  the  nuaber  of  hours  of  search  object  drift  is  uncertain, 
you  aust  run  this  prograa  twice  (as  aentioned  earlier).  On 
the  first  run  enter  here  the  SHORTER  nuaber  of  hours  of 
search  object  drift.  On  the  second  run,  or  if  two  runs  are 
not  applicable,  enter  here  the  difference  between  the  Datua 
and  LKP  tiaes  as  requested  above: 

ELAPSED  HOURS  =>  8 


/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


Please  enter  the  ocean  surface  wind  direction  and  velocity  at  271800Z: 
WIND  DIRECTION  =  80 
WIND  VELOCITY  =  20 

Please  enter  the  ocean  surface  wind  direction  and  velocity  at  280000Z: 
WIND  DIRECTION  =  40 
WIND  VELOCITY  =  30 

Please  enter  the  ocean  surface  wind  direction  and  velocity  at  280600Z: 
WIND  DIRECTION  *  35 
WIND  VELOCITY  =  40 

Please  enter  the  ocean  surface  wind  direction  and  velocity  at  281200Z: 
WIND  DIRECTION  =  40 
WIND  VELOCITY  =  40 

Please  enter  the  ocean  surface  wind  direction  and  velocity  at  28  1800Z: 
WIND  DIRECTION  =  45 
WIND  VELOCITY  =  20 

Please  enter  the  ocean  surface  wind  direction  and  velocity  at  290000Z: 
WIND  DIRECTION  =  40 
WIND  VELOCITY  *  25 

Please  enter  the  ocean  surface  wind  direction  and  velocity  at  290600Z: 
WIND  DIRECTION  =  65 
WIND  VELOCITY  *  20 
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Please  enter  the  ocean  surface  wind  direction  and  velocity  at  291200Z: 
WIND  DIRECTION  *  74 
WIND  VELOCITY  *  20 

Please  enter  the  ocean  surface  wind  direction  and  velocity  at  291800Z: 
WIND  DIRECTION  =  77 
WIND  VELOCITY  *  Id 


/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


Refer  to  the  latitude  coefficient-vectors  table  for  the  Northern 
latitudes  (approximately  page  8-16c)  in  the  National  SAR  Manual. 
Find  the  degrees-latitude  colusn  nearest  to  39-degreea-North. 

You  will  now  be  asked  to  enter  the  directions  and  Magnitudes  for 
each  of  the  eight  periods  appearing  under  that  column. 


PERIOD 

#1 

DIRECTION 

= 

217 

PERIOD 

#1 

MAGNITUDE 

S 

.024 

PERIOD 

#2 

DIRECTION 

s 

350 

PERIOD 

#2 

MAGNITUDE 

s 

-Ol 

PERIOD 

#3 

DIRECTION 

s 

107 

PERIOD 

#3 

MAGNITUDE 

s 

.008 

PERIOD 

#4 

DIRECTION 

s 

223 

PERIOD 

#4 

MAGNITUDE 

s 

.006 

PERIOD 

#5 

DIRECTION 

s 

339 

PERIOD 

#5 

MAGNITUDE 

s 

.006 

PERIOD 

#6 

DIRECTION 

s 

35 

PERIOD 

#6 

MAGNITUDE 

s 

.005 

PERIOD 

#7 

DIRECTION 

s 

211 

PERIOD 

#7 

MAGNITUDE 

s 

.004 

PERIOD 

#8 

DIRECTION 

r 

327 

PERIOD 

#8 

MAGNITUDE 

s 

.004 
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/\/\/\/\/\/\/ 


NEW 


SCREEN 


\/\/\/\/\*\/\ 


Wind  Current  Latitude  Coefficients  for  39-degrees  North  are: 


1. 

Period  #1 

217 

/ 

0.024 

2. 

Period  #2 

350 

/ 

0.010 

3. 

Period  #3 

107 

/ 

0.008 

4. 

Period  #4 

223 

/ 

0.006 

5. 

Period  #5 

339 

/ 

0.006 

6. 

Period  #6 

95  / 

0.005 

7. 

Period  #7 

211 

/ 

0.004 

8. 

Period  #8 

327 

/ 

0.004 

Are  these  altitudes,  wind  directions,  and  wind 
velocities  all  correct?  (y/n)  Y 


/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


Period  *1 

Xcoaponent  =  -0.119  (-0.119;  OX  ERROR) 

Ycoeponent  =  0.229  (  0.229;  OX  ERROR) 

Period  *2 

Xcoaponent  =  -0.283  (-0.283;  OX  ERROR) 

Ycoaponent  «  0.109  (  0.109;  OX  ERROR) 

Total  Wind  Current: 

Xcoaponent  =  -1.443  (-1.454;  0.69X  ERROR) 

Ycoaponent  =  1.470  (  1.466;  0.27X  ERROR) 

HIT  RETURN  (Once  or  twice,  as  necessary)  TO  CONTINUE 


/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


Total  Wind  Current  Direction  is  316-degrees  for  2.06  nautical  ailes. 


If  the  nuaber  of  hours  of  search  object  drift  is  uncertain,  you 
aust  run  this  prograa  twice  (as  aentioned  earlier).  On  the  first 
run,  RECORD  this  Total  Wind  Current  vector  direction  and  distance 
for  input  during  the  second  run. 

If  this  is  the  second  run,  please  now  ENTER  the  previously- 
recorded  Wind  Current  vector  over  the  shorter  drift  period 
(If  not  applicable,  enter  a  heading  of  361): 

WIND  CURRENT  DIRECTION  (froa  Run  #1)  =>  361 
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/\/\/\/\/\/\/ 


NEW 


SCREEN 


\/\/\/\/\/\/\ 


Average  Surface  Wind: 

Xcoaponent  -  148.742  (148.742;  OX) 

Y component  *  39.711  (39.711;  Ox) 

Average  Surface  Wind  Direction  75-degreea  True  at  19.24  knots. 


If  the  nuaber  of  hours  of  search  object  drift  is  uncertain,  you 
suat  run  this  program  twice  (as  mentioned  earlier).  On  the  first 
run,  RECORD  this  Aversge  Surface  Wind  vector  direction  and 
speed  for  use  in  calculating  the  minimum  leeway  speed  during  the 
second  program  run.  Then,  ABORT  this  program  run,  CLEAR  your 
microcomputer's  memory,  and  RERUN  the  entire  program 


HIT  RETURN  (Once  or  twice,  as  necessary)  TO  CONTINUE 

/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


This  program  will  now  calculate  the  LEEWAY  vector,  or,  that  drift  caused 

by  average  surface  winds  pushing  on  the  exposed  area  of  the  search  object. 

There  are  three  leeway  vector  calculation  options: 

(1)  DRIFT  RATE  UNCERTAINTY  -  Used  when  the  search  object  is  unknown, 
or,  when  it  is  not  known  whether  the  object  has  deployed  an 
anti-drift  device  (e.g.,  sea  drogue).  All  drift  is  computed  as 
a  minimum  and  maximum  distance  downwind; 

(2)  DRIFT  TIHE  UNCERTAINTY  -  Used  if  the  nuaber  of  hours  the  search 
object  has  been  drifting  is  not  known  for  certain.  All  drift 
is  computed  as  a  minimum  and  maximum  distance  downwind; 

(3)  DIRECTIONAL  DRIFT  UNCERTAINTY  -  Used  if  above  options  do  not 

*  apply.  However,  drift  is  computed  for  a  divergent  bearing  left 
and  right  of  the  downwind  vector. 

Refer  to  the  National  SAR  Manual  for  additional  information. 


PLEASE  SELECT  OPTION  #1,  #2,  or  #3  *>  3 


✓\/\/\/\/\/\/ 


NEW 


SCREEN 


\/\/\/\/\/\/\ 


Refer  to  the  Leeway  Speed  Graph  in  the  National  SAR  Manual 
(approximately  page  8-15).  Please  enter  the  search  object's 
aaxiaua  expected  degreea-divergence  froa  the  downwind  vector: 
MAX  EXPECTED  DIVERGENCE  *>  35 

Refer  to  the  Leeway  Speed  Foraulae  in  the  National  SAR  Manual 
(approximately  page  8-13).  Please  enter  the  leeway  speed  at 
which  the  search  object  drifts: 

LEEWAY  SPEED  =>  0.842 

Please  enter  the  number  of  hours  the  search  object  drifted: 
HOURS  OF  DRIFT  ->  8 


/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


Please  enter  the  sea  current  vector  as  described  in  the  National 
SAR  Manual  (approximately  pages  8-161  and  8-16j): 

SEA  CURRENT  DIRECTION  (SET)  =  >  71 

SEA  CURRENT  VELOCITY  =>1.1 

Which  publication  did  you  use  as  the  source  of  your  sea  current  data?: 

(1)  Naval  Oceanographic  Office  Spec.  Pub.  Series  4000,  Surface  Currents 

(2)  Publication  No.  700 

(3)  Oceanographic  Atlas 

(4)  Atlas  of  Surface  Currents 

(5)  Pilot  Charts 

(6)  Other 

SELECT  ONLY  ONE  =>  1 


/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


Please  enter  the  observed  total  water  current,  if  known. 
Th4s  current  is  determined  by  observing  the  drift  positions 
and  times  of  surface  debris,  oil  slicks,  or,  by  inserting 
an  electronic  Datum  Marker  Buoy  in  the  search  area.  This 
total  water  current  vector  replaces  the  surface  wind  and 
sea  current  vectors  previously  calculated  by  this  program. 
(If  unknown,  enter  a  heading  of  361): 

TOTAL  WATER  CURRENT  DIRECTION  =>  361 


/\/\/\/\/\/\/ 


NEW 


SCREEN 


\/\/\/\/\/\/\ 


If  you  have  calculated  a  Tidal  Current  vector,  pleaee  enter  it  here 
(If  not  applicable,  enter  a  heading  of  361): 

TIDAL  CURRENT  DIRECTION  =>  361 


/ \/\/\/\/\/\ /  NEW  SCREEN  \/\/\/\/\/\/\ 


(Max)  Datua  Vector: 
Xcoaponent  =  0.550 
Ycoaponent  *  6.645 


(Min)  Datua  Vector: 
Xcoaponent  *  2.543 

Ycoaponent  =  -0.821 


Total  Surface 
Total  Surface 


Drift  Dir.  : 
Drift  Diet.: 


108 -degrees 
2.67  naut.  ai. 


5-degrees 
6.67  naut.  ai. 


HIT  RETURN  (Once  or  twice,  as  necessary)  TO  CONTINUE 

/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 

Calculating  .  .  .  Please  stand  by 

/\/\/\/\/\/\/  NEW  SCREEN  \/\/V/\/\/W\ 


A  record  of  significant  input  and  output  data  used  during  this 
prograa  run  is  stored  in  an  external  file  naaed  "SEADATA". 

If  you  desire  to  keep  this  record  peraanently,  please  renaae 
file  SEADATA  before  running  this  prograa  again! 


<<  SECOND 

/\/\/\/\/\/\/  N  E 


PROGRAM  OUTPUT  >> 

W  SCREEN  \/\/\/\/\/\/\ 


Missing  aerospace  object/pilot(s)  last  known  position:  39-18  North  84-  33  West 
Tiae:  291000Z  4/1984 


AVERAGE  SURFACE 

WINDS: 

Date-Tiae-Group 

Hours 

Wind 

Contributions 

291200Z 

5 

74  /  20 

74  /  100 

2918002 

3 

77  /  18 

77  /  54 

Total  Average  Surface  Wind 

Direction 

075-degrees  True  at  19.24  knots 

LEEWAY  DRIFT  VECTOR  CALCULATIONS: 
Maxintia  Expected  Divergence 
Drift  Rate 
Hours  Of  Drift 

Leeway  Direction  Min  s 

Leeway  Distance  Min  s 


Directional  Drift  Uncertainty 
35-degreea 
0.842  knots 
8 

220-degrees  Max  =  290-degrees  True 
8.74  naut.ai.  Max  =  8.74  naut.ai. 


WIND  CURRENT  PERIOD  #1 
Interval  Date-Tiae-G 

1  291200Z 

2  290800Z 

3  290000Z 

4  281800Z 

5  281 2002 

6  280800Z 

7  2800002 

8  271 8002 


Date-Tiae-Group 

Wind 

Coefficients 

Contributions 

291200Z 

74 

/ 

20 

217 

/ 

0.024 

291 

/ 

0.480 

2906002 

65 

l 

20 

350 

/ 

0.010 

415 

/ 

0.200 

2900002 

40 

/ 

25 

107 

/ 

0.008 

147 

/ 

0.200 

2818002 

45 

/ 

20 

223 

/ 

0.006 

268 

/ 

0.120 

2812002 

40 

/ 

40 

339 

/ 

0.006 

379 

/ 

0.240 

2806002 

35 

/ 

40 

95 

/ 

0.005 

130 

/ 

0.200 

2800002 

40 

/ 

30 

211 

/ 

0.004 

251 

/ 

0.120 

2718002 

80 

/ 

20 

327 

/ 

0.004 

407 

/ 

0.080 

Local  Wind  Current  This  Period 
Nuaber  Of  Hours  In  This  Period 
Wind  Current  Vector  This  Period 


333  /  0.258 
5 

333  /  1.289  nautical  Biles 


WIND  CURRENT  PERIOD  #2 
Interval  Date-Tiae-G 
1  291800Z 

.  2  291200Z 

3  290800Z 

4  290000Z 

5  281800Z 

8  281200Z 

7  280600Z 

8  280000Z 


Date-Tiae-Group 

Wind 

Coefficients 

Contributions 

2918002 

77 

/ 

18 

217 

/ 

0.024 

294 

/ 

0.432 

2912002 

74 

/ 

20 

350 

/ 

0.010 

424 

/ 

0.200 

2906002 

65 

/ 

20 

107 

/ 

0.008 

172 

/ 

0.160 

290000Z 

40 

/ 

25 

223 

/ 

0.006 

263 

/ 

0.150 

2818002 

45 

/ 

20 

339 

/ 

0.006 

384 

/ 

0.120 

2S1200Z 

40 

/ 

40 

95 

/ 

0.005 

135 

/ 

0.200 

280600Z 

35 

/ 

40 

211 

/ 

0.004 

246 

/ 

0.160 

2800002 

40 

/ 

30 

327 

/ 

0.004 

367 

/ 

0.120 

Local  Wind  Current  This  Period  291  /  0.303 

Number  Of  Hours  In  This  Period  3 

Wind  Current  Vector  This  Period  291  /  0.909  nautical  miles 


Total  Wind  Current  Direction  316-degrees  True 

Total  Wind  Current  Distance  2.06  nautical  miles 


SEA  CURRENT  VECTOR: 

Used  Naval  Oceanographic  Office  Spec.  Pub.  Series  4000,  Surface  Currents 
Sea  Current  Direction  (Set)  071-degrees  True 

Sea  Current  Drift  Rate  1.10  knots 

Sea  Current  Drift  Distance:  8.80  knots 


TOTAL  SURFACE  DRIFT  (Dmin  &  Dmax)  VECTORS: 

Tot. Surf .Drift  Direction  :  108-degrees  005-degreea  True 

Tot. Surf .Drift  Distance  :  2.67  naut.  mi.  6.67  naut.  mi. 


<<  RUN  THIRD  PROGRAM:  SEARCH  AREA  DETERMINATIONS 
/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


. . . . . . . . . 

<•  SEARCH  PLANNING  SOFTWARE  (PROGRAM  #3  OF  3)  •) 
(»  TITLE:  AREA.COM  (Search  Area  Determination  Algorithm)  •) 
(»  VERSION:  1.0  for  CP/M  Operating  System  •) 
(•  DATE  WRITTEN:  August  1984  «) 
(•  LICENSE:  COPYRIGHT  1984  D.  RICK  DOUGLAS  •) 
. . . . . . . . . . * . . . . 


The  author  makes  no  express  or  implied  warranty  of  any  kind  with  regard  to 
this  program  material,  including,  but  not  limited  to,  the  implied  warranty  of 
fitness  for  a  particular  purpose.  The  author  shall  not  be  liable  for 
incidental  or  consequential  damages  in  connection  with  or  arising  out  of 
furnishing,  use,  or  performance  of  this  program.  The  reader  MUST  HAVE  a  solid 
understanding  of  search  and  rescue  methodology  before  using  this  software  in 
making  decisions  where  human  life  is  at  risk.  In  fact,  since  no  amount  of 
testing  can  uncover  100*  of  program  errors,  this  program  is  recommended  ■  for 
training  use  only.  Prior  attendance  at  the  United  States  Coast  Guard's 
National  SAR  School  is  highly-encouraged. 

. . . . . «•**«•*  WARNING!  . . . . . . 

<•  THIS  SOFTWARE  MAY  BE  FREELY-DISTRIBUTED  PROVIDED  NO  FEE  •) 
(*  IS  CHARGED  AND  THIS  COPYRIGHT  NOTICE  IS  RETAINED  •  > 
. . . . . . . 

PLEASE  HIT  RETURN  (Once  or  twice,  as  necessary)  TO  CONTINUE 


C-19 


/\/\/\/\/\/\/ 


MEW 


SCREEN 


\/\/\/\/\/\/\ 


Was  search  object's  last  known  latitude  north  or  south? 
(Enter  N  or  S)  Anawer=>  N 

Please  enter  the  search  object's  last  known  latitude 
(For  exaaple:  25-Degrees  45-Minutes  13-Seconds  =  25.4513) 
LATITUDE  =>  39.15 

Was  search  object's  last  known  longitude  east  or  west? 
(Enter  E  or  W)  Answer2 >  W 

Please  enter  the  search  object's  lsst  known  longitude 
(For  example:  160-Degrees  45-Minutes  13-Seconds  =  160.4513) 
LONGITUDE  =  >  64.3 


/\/\/\/\/\/\/  MEW  SCREEN  \/\/\/\/\/\/\ 


Did  you  previously  calculate  an  aerospace  drift  vector 
for  this  problem?  (y/n>:  Y 

Please  enter  the  previously-calculated, 

TOTAL  AEROSPACE  DRIFT  DIRECTION  =>  323 

Please  enter  the  previously-calculated 

TOTAL  AEROSPACE  DRIFT  DISTANCE  =>  4.39  (4.39;  OX  ERROR) 

Refer  to  the  "Individual  Drift  Error"  section  in  the  National  SAR 
Manual  (approximately  page  8-27).  Please  enter  the  desired 
Aerospace  Drift  Error  Confidence  Factor  (e.g,  0.125,  0.3,  etc.): 
AEROSPACE  DRIFT  ERROR  CONFIDENCE  FACTOR  =>  0.3 


/\/\/\/\/\/\/  MEW  SCREEN  \/\/\/\/\/\/\ 


Please  enter  the  sum  of  previous  drift  errors 
(Enter  a  zero  if  not  applicable): 

SUM  OF  DRIFT  ERRORS  =>  O 

Please  enter  the  previously-calculated, 

MINIMUM  TOTAL  SURFACE  DRIFT  DIRECTION  =>  109 

Please  enter  the  previously-calculated, 

MINIMUM  TOTAL  SURFACE  DRIFT  DISTANCE  ->  2.69  (2.67;  0.74*  ERROR) 

Please  enter  the  previously-calculated, 

MAXIMUM  TOTAL  SURFACE  DRIFT  DIRECTION  =  >  005 


a 


F 


m  ,• 


k 


Please  enter  the  previously-calculated, 
MAXIMUM  TOTAL  SURFACE  DRIFT  DISTAMCE  =>  6.63 


(6.67;  0.6X  ERROR) 


Please  enter  the  measured  distance  between  the  two,  previously- 
calculated,  Total  Surface  Drift  Distance  positions: 

DISTANCE  BETWEEN  SURFACE  DRIFT  POSITIONS  =  >  7.73 

Refer  to  the  "Individual  Drift  Error"  section  in  the  National  SAR 
Manual  (approximately  page  fi-27).  Please  enter  the  desired 
Surface  Drift  Error  Confidence  Factor  (e.g,  0.125,  0.3,  etc.): 
SURFACE  DRIFT  ERROR  CONFIDENCE  FACTOR  =>0.3 


/\/\/\/\/\/\/ 


NEW 


SCREEN 


\/\/\/\/\/\/\ 


Refer  to  the  "Initial  Position  Error”  section  in  the  National  SAR 
Manual  (approximately  page  £-29).  Please  enter  the  search  object's 
Navigational  Fix  Error  (e.g,  0,  5,  10,  or  15  naut.  mi.  radius), 
and,  if  applicable,  the  Navigational  Dead -Reckoning  (DR)  Error 
(e.g,  0,  5,  10,  or  15  percent  of  DR  distance  in  naut.  mi.): 

SEARCH  OBJECT  NAVIGATIONAL  FIX  ERROR  =>  10 

SEARCH  OBJECT  NAVIGATIONAL  DR  ERROR  =>  0 


/\/\/\/\/\/\/ 


NEW 


SCREEN 


\/\/\/\/\/\/\ 


Refer  to  the  "Search  Craft  Error"  section  in  the  National  SAR 
Manual  (approximately  page  8-29).  Please  enter  the  search  craft's 
Navigational  Fix  Error  (e.g,  0,  5,  10,  or  15  naut.  mi.  radius), 
and,  if  applicable,  the  Navigational  Dead-Reckoning  (DR)  Error 
(e.g,  0,  5,  10,  or  15  percent  of  DR  distance  in  naut.  mi.): 

SEARCH  CRAFT  NAVIGATIONAL  FIX  ERROR  =>  5 


SEARCH  CRAFT  NAVIGATIONAL  DR  ERROR  =>  0 


/\/\/\/\/\/\/ 


NEW 


SCREEN 


\/\/\/\/\/\/\ 


Tcru  are  calculating  the  seaurch  area  for: 

1  The  first  search 

2  The  aecond  search 

3  The  third  search 

4  The  fourth  search 

5  The  fifth  search 


Input  SEARCH  NUMBER  =>  1 


C-21 


PRELIMINARY  INFORMATION 


Search  Area  Radiua  =  15  naut.  al. 

Search  Area  =  900  aq-naut.al.  (900;  OX  ERROR) 


HIT  RETURN  (Once  or  twice,  as  necessary)  TO  CONTINUE 

/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 

Calculating  .  .  .  Please  stand  by 

/\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


A  record  of  significant  input  and  output  data  used  during  this 
prograa  run  is  stored  in  an  external  file  named  "AREADATA". 

If  you  desire  to  keep  this  record  permanently,  please  rename 
file  AREADATA  before  running  thia  program  again! 


<<  THIRD  PROGRAM  OUTPUT  >> 

✓\/\/\/\/\/\/  NEW  SCREEN  \/\/\/\/\/\/\ 


DRIFT  COORDINATES  :  LATITUDE 
Last  Known  Position  :  39.1500 
Aerospace  Drift  Position  :  39.1830 
Surface  Dmin  Position  :  39.1738 
Surface  Dmax  Position  :  39.2507 


LONGITUDE 

64.3000 

64.3325 

64.3008 

64.3240 


SEARCH  AREA: 

Aerospace  Drift  Distance  :  4.39  naut.  mi. 

Drift  Error  Confidence  :  0.300 

Aerospace  Drift  Error  :  1.32  naut.  mi. 


Sum  of  Previous  Drift  Errors 
Surface  Drift  Distance 
Drift  Error  Confidence 
Drift  Error  Min  and  Max 
Distance  Between  Dmin/max 
Surface  Drift  Error  Minimax 


0.00  naut.  mi. 

2.69  naut.  mi.  6.63  naut.  mi. 
0.300 

0.81  naut.  mi.  1.99  naut.  mi. 
7.73  naut.  mi. 

5.26  naut.  mi. 


Appendix  D 

SEARCH  PLANNING  PROGRAMS  LISTING  (SOURCE  CODE) 


0001 

0002 

0003 

AAAi 

WWW 

0005 

0006 

0007 

MBA 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

8022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 


wininHHmuHHmmiimiHHininmiiiimHiHHi 

SEARCH  PLANNING  SOFTWARE  (PROGRAM  #1  OF  3) 

t 

>  TITLE:  AEM1DRIF.COM  (Aerospace  Drift  Algorithm) 

f  VERSION:  1.1  for  CP/M  Operating  System 

)  DATE  WRITTEN:  Septenber  1984 


DESCRIPTION: 

-  User  asked  for  last  known  position  (coordinates)  and 
date-tiwe-group  of  search  object 

-  User  queried  as  to  whether  aerospace  object  glided, 
fell,  parachuted,  or  some  coabination,  to  get  to  the 
surface 

-  Depending  upon  the  descent  method,  user  is  then  asked 
additional  inforaation  as  specified  in  the  National 
Search  and  Rescue  (SAR)  Manual 

-  User  asked  to  input  reported  winds  aloft  for  every 
known  altitude  froa  surface  to  the  search  object’s 
incident  level,  plus  one  or  two  nore  above  that 

-  Wind  data  is  printed  back  to  the  user  for  verification 

-  User  aay  aake  changes  to  input  data  as  required 

-  Program  calculates  applicable,  resultant  drift  vector 
direction^)  and  magnitude(s)  and  creates  an  "audit 
trail’/record  file  of  program  input,  significant 
calculations,  and  output,  named  'fOODATA* 


LICENSE:  COPYRIGHT  1984  D.  RICK  DOUGLAS 

The  author  wakes  no  express  or  iaplied  warranty  of  any 
kind  with  regard  to  this  program  material,  including,  but 
not  limited  to,  the  implied  warranty  of  fitness  for  a 
particular  purpose.  The  author  shall  not  be  liable  for 
incidental  or  consequential  damages  in  connection  with  or 
arising  out  of  furnishing,  use,  or  performance  of  this 
program.  The  reader  MUST  HAVE  a  solid  understanding  of 
search  and  rescue  methodology  before  using  this  software 
in  making  decisions  where  human  life  is  at  risk.  In  fact, 
since  no  amount  of  testing  can  uncover  18W  of  program 
errors,  this  program  is  recommended  for  training  use  or  >. 
Prior  attendance  at  the  United  States  Coast  Guard’s 
National  SAR  School  is  highly-encouraged. 


0045 

0046 

0047 


THIS  SOFTWARE  MAY  BE  FREELY-DISTRIBUTED 
PROVIDED  NO  FEE  IS  CHARGED  AND 
THIS  COPYRIGHT  NOTICE  IS  RETAINED. 


0082  type  Uinds  *  arrayC1..20,1..31  of  real; 

0083 

0084  var  OnePassCoepleted  :  boolean; 

0085  {Flags  second  pass  through  procedure  HindDrift) 

0086 

0087  chute, 

0088  continue, 

0089  descent, 

0090  LatNS, 

0091  LongEU, 

0092  Method Drift 


0093 

0094 

BlideRatio, 

{Horizont./Vert.  displacement  (from  flight  eanual) 

0095 

I,J, 

{Used  as  counters) 

0096 

K, 

{Tracks  number  of  wind  altitudes  used  by  program) 

0097 

LastMonth, 

{Month  object  at  last  known  position) 

0098 

LastYear, 

{Year  object  at  last  known  position) 

AAQA 

TypeVehicle 

:integer;  {Determines  if  vehicle  is  fast  or  slow) 

{Dete mines  if  Drift  procedure  should  be  used) 
{Detereines  if  this  program  should  be  used) 
{Determines  if  fleroGlide  procedure  should  be  used) 
{Indicates  whether  latitude  is  North  or  South) 
{Indicates  whether  longitude  is  East  or  Uest) 

:  char;  {Indicates  parachute(P),  glide(G),  or  both(B)  ) 


D-2 


0100 

0101  AssignedAlt,  {Incident  altitude  above  mean  sea  level  (MSL) > 

0102  AvgHindFroa,  {Average  winds  aloft  direction  from  (in  degrees)  > 

0103  AvgHindTo,  {AvgWindFroei  plus-or-minus  180} 

0104  BrgGlideHinds,  {Average  winds  aloft  glide  bearing  in  degrees} 

0105  BrgMaxGlide,  {Maximum  glide  course  in  degrees} 

0106  BrgParaDrift,  {Average  winds  aloft  bearing  on  parachute  drift} 

0107  BrgRads,  {Individual  bearings  converted  to  radians} 

0108  ChuteAlt,  {Determines  parachute(s)  opening  altitude} 

0109  DescentHeading,  {Aerospace  object’s  descent  heading  in  decimal} 

0110  DescentRate,  {Aerospace  object's  descent  rate  in  feet  per  minute} 

0111  DescentTiae,  {Object's  descent/glide  tine  through  GlideAltLost} 

0112  DistanceParaDrift,  {Parachute  drift  distance} 

0113  EjectDistance,  {Distance  ejecting  pilot  is  tossed  horizontally} 

0114  GlideAltLost,  {Altitude  lost  falling  from  AssignedAlt} 

0115  61ideDistance,  {Glide  ratio  distance  covered  excluding  winds} 

0116  GlideWindSpeed,  {Average  winds  aloft  velocity  affecting  glide} 

0117  IncidentAlt,  {Parachute-opening  altitude} 

0118  LastlatitudeKnown,  {Last  known  latitude  of  aerospace  object} 

0119  LastLongitudeKnown,  {Last  known  longitude  of  aerospace  object} 

0120  LastDateTine,  {Tine  aerospace  object  was  at  last  known  position} 

0121  MaxDistanceGlide,  {In  nautical  niles) 

0122  MaxRadiusGlide,  {Maxinun  radius  of  glide  if  BrgMaxGlide  uncertain) 

0123  ParaDriftSpeed,  {Average  winds  aloft  parachute  drift  velocity} 

0124  RateParaDescent,  {Object's  parachute  descent  rate  in  feet  per  second) 

0125  ResultMagnitude,  {Resultant  distance  computed  from  vector  addition} 

0126  Tenp,  {Confirm s  WiraJDrift  IncidentAlt/500  remainder  =  8) 

0127  TerrainHeight,  {Height  of  surface  at  or  above  mean  sea  level) 

0128  TineParaDescent,  {Object’s  parachute  descent  time  in  minutes) 

0129  TotalBrg,  {Total  aerospace  drift  vector  direction} 

0130  TotalDistance,  {Total  aerospace  drift  distance) 

0131  TotalRadius,  {Total  possible  area  radius  if  direction  unknown) 

0132  TrajectBrg,  {Aerospace  trajectory  direction) 

0133  TrajectDistance,  {Aerospace  trajectory  distance) 

0134  TrajectRadius,  {Aerospace  trajectory  radius  (TrajectBrg  uncertain)} 

0135  UindDisplacenent  ;  real {{Distance  covered  due  to  winds) 

0136 

0137  Mo,  {'N,n»  =  •No"  characters) 

0138  Yes,  {'Y,y'  =  'Yes'  characters) 

0139  ValidAnswers  :  set  of  char-,  {’ Y, y,N,n’  =  valid  "Yes"  and  "No"  characters) 

0140 

0141  Aerollinds,  {Duplicate  array  of  WindsAloft  for  computation  use) 

0142  UindsAloft  :  Hinds;  {Individual-altitude  winds  affecting  parachute  drift) 
0143 

0144  (HHHIHHIHHtHIHHHtHHHHHHtHIIHiiHmtflimmiWIHHW) 
0145  {Urites  out  a  specified  number  of  blank  lines.) 

0146 

0147  procedure  writelns  (lines  :  integer); 

0148 

0149  var  count  :  integer; 

0150 


while  lines  )  cowit  do 
begin 
writeln; 

count  :=  count  +  1 


0158  end 


(verifies  legitimate  date/tioe/group  data  input.) 


0161  (verifies  legitimate  da 
0162 

0163  procedure  VerifyDTS; 
0164 

0165  var  Temp, 

0166  TempDate, 

0167  TempHour, 

0168  TempMinutes  :  real; 

0169 

0170  begin  (VerifyOT6> 


(Used  as  a  temporary  computation  variable) 
(Used  as  temporary  date  variable) 

(Used  as  temporary  hour  variable) 

(Used  as  temporary  minutes  variable) 


repeat  (until  correct  date/tine  format  input) 

(Verify  the  day  is  between  1  and  31) 

TempDate  trunct  LastDateTiwe/10080  ); 
if  (TempDate  <  1)  or  (TempDate  )  31)  then 
begin  (TempDate  not  between  1  and  31) 
writeln; 

writeln (’You  have  incorrectly  entered  the  date. 
writeC  Re-enter  Z  DT6=>  ’); 
readln (LastDateTime) 
end;  (TempDate  not  between  1  and  31) 


Try  again!’); 


(Verify  the  hour  is  between  0000  and  2400) 

Temp  :=  (LastDateTime/ 10800  -  ( t rune ( Last DateT i me/ 10080) )  )  *  100; 
TempHour  :=  trunc(Temp); 
if  (TempHour  (  0)  or  (TempHour  )  23)  then 
begin  (TempHour  not  between  0  and  23) 
writeln; 

writeln(*You  have  incorrectly  entered  the  hour.  Try  again!'); 
write!’ Re-enter  Z  DTG=>  ’); 
readln (LastDateTime) 
end;  (TempHour  not  between  0  and  23) 

(Verify  the  minute  is  between  0  and  60) 

Temp  :=  (LastDateTime/ 100  -  (trunc(LastDateTime/100))  )  •  100; 
TempMinutes  trunc(Temp); 
if  (TempMinutes  (  0)  or  (TempMinutes  >  60)  then 
begin  (TempMinutes  not  between  0  and  60) 
writeln; 

writelnCYou  have  incorrectly  entered  the  minutes.  Try  again!’) 
writeC  Re-enter  Z  DTG=)  ’); 
readln (LastDateT ime) 

end  (TempMinutes  not  between  0  and  60) 


until  (TeepDate  )=  1)  and  (TeapDate  (=  31)  and  (TeapHour  >=  0)  and 
(TeepHour  (=  23)  and  (TeapNinutes  >=  0)  and  (TeapMinutes  <=  £0) 

d;  (VerifyDTS) 


{Asks  user  for  last  knoan  tiae  and  position  of  an  aerospace  object.) 
procedure  AeroPosition; 
begin  {AeroPosition) 
ariteln; 

repeat  {until  valid  response) 

ariteln (’Please  enter  the  nuaber  for  the  aonth  the  search  object  aas’); 

ariteln  Cat  the  last  knoan  position:’); 

ariteln; 


ariteln(’  1  3  Jan 
ariteln(’  2  3  Feb  5  3  May  B  3  Aug  1 

aritelnC  3  3  Mar  £  3  Jun  9  3  Sep  1 

ariteln; 

ariteCMONTH3)  ’); 
readln(LastMonth); 

if  (LastMonth  (  1)  or  (LastMonth  )  12)  then 

aritelnC  Incorrect  nuaber  entered.  Please  try  again!’); 
ariteln 

until  (LastMonth  >=  1)  and  (LastMonth  (=  12); 


4  3  Apr 

5  3  May 
fi  3  Jun 


7  3  Jul 
B  3  Aug 
9  3  Sep 


10  3  Oct’); 

11  3  Nov'); 

12  3  Dec’); 


aritelnC  Please  enter  the  year  the  search  object  ms  at  the  last  knoan’); 

ariteln  (’posit  ion  (e.g.,  1985,  1988,  etc.)’); 

arite('YEAR=)  ’); 

readln (Last Year); 

ariteln; 

ariteln; 

aritelnC  Please  enter  the  day-hour-einute  the  search  object  ms  at  the’); 
aritelnC  last  knoan  position.  Enter  it  in  Z  DIB  (Zulu  Date-Tine-Group)' ); 
aritelnC  format.  For  example:  9:37  PM,  August  4,  would  appear  as'); 
aritelnC 042137  Greenaich-Wean  Tine  (Z=0).’); 
ariteCTIME  (Z  DTG)=>  ’); 
readln (LastDateT iee) ; 

VerifyDTG; 

ariteln; 

repeat  {until  valid  latitude) 

aritelnCUas  search  objecf’s  last  knoan  latitude  north  or  south?*); 

ariteC (Enter  N  or  S)  Answer3)  ’); 

readln(LatNS); 

ariteln 

until  (LatNS  3  ’NM  or  (LatNS  3  ’n’)  or  (LatNS  3  ’S’)  or  (LatNS  3  ’s’); 


- 'l  -JjL— 'a..**3  "j  • 


0256  repeat  (until  valid  latitude) 

9257  writelnC  Please  enter  the  search  object”s  last  known  latitude  '); 

8258  writelnC (For  exanple:  25-Degrees  45-Minutes  13-Seconds  *  25.4513)'); 

0259  write (’ LATITUDE  =>  ’); 

9289  readln(LastLatitudeKnown); 

9281  if  (LastLatitudeKnown  <  8)  or  (LastLatitudeKnown  >  98)  then 

8282  writelnC  Input  latitude  nust  be  between  9-99.  Try  again!'); 

8283  writeln 

8284  until  (LastLatitudeKnown  >=  9)  and  (LastLatitudeKnown  (=  99); 

8285 

8268  repeat  (until  valid  longitude) 

9267  writelnCUas  search  objecf’s  last  known  longitude  east  or  west?'); 

8288  write (’ (Enter  E  or  U)  flnswer=>  '); 

9269  readln(LongEW); 

8279  writeln 

9271  until  (LongEM  =  'E')  or  (LongEW  =  'e')  or  (LongEU  =  'U' )  or  (LongEU  -  'w'); 

8272 

8273  repeat  (until  valid  longitude) 

9274  writelnCPlease  enter  the  search  object" s  last  known  longitude  ’); 

8275  writelnC  (For  exanple:  169-Degrees  45-Ninutes  13-Seconds  =  169.4513)’); 

9276  write (’LONGITUDE  =>  '); 

9277  readln(LastLongitudeKnown) ; 

9278  if  (LastLongitudeKnown  (  9)  or  (LastLongitudeKnown  )  1B0)  then 

8279  writelnC  Input  longitude  Bust  be  between  9-189.  Try  again!'); 

9289  writeln 

9281  until  (LastLongitudeKnown  )=  9)  and  (LastLongitudeKnown  (=  189); 

9282  writeln 
8283 

0284  end;  (AeroPosition) 

0285 

0287  (Wien  given  the  X  and  Ycomponents  froa  procedure  VectorConponents,  this) 

8288  (procedure  calculates  resultant  vector  bearing  (AvgUindFron)  and  ) 

0289  (nagnitude  (ResultHagnitude).  ) 

0299 

8291  procedure  AddVectors  (var  Xconponent,  Ycoaponent  :  real); 

8292 

9293  var  TenpAngle  :  real;  (Tenporary  calculation  variable) 

8294 

8295  begin  (AddVectors) 

8298 

8297  (Find  resultant  angle  (in  degrees)  uncorrected  for  cow pass  position.) 

9298  TeapAngle  :=  arctan(Xcoeponent/Yconponent)  *  radians; 

0299 

0389  (Find  bearing  resulting  from  TempAngle  corrected  for  coepass  position.) 

8391  if  (Xcoaponent  >  0)  and  (Yccnponent  )  0)  then  AvgUindFrow  :=  TenpAngle; 

8392  if  ((Xconponent  >  0)  and  (Ycoaponent  (0))  or 

9393  ((Xconponent  (  8)  and  (Ycoaponent  (  0>)  then 

9384  if  (TenpAngle  +  189)  )  369  then 

9385  AvgUindFrow  :=  TenpAngle  -  180 

8396  else  AvgUindFrow  t=  TenpAngle  +  189; 

8397  if  (Xconponent  (  0)  and  (Yccnponent  )  0)  then 
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if  (TempAngle  ♦  360)  >  360  then 
AvgHindFrom  TempAngle  -  360 
else  AvgWindFrcm  :=  TempAngle  +  360; 

{Convert  AvgWindFrom  to  AvgWindTo  bearing.  > 
if  (AvgWindFrom  +  180)  )  360  then 
AvgUindTo  :=  AvgHindFrom  -  180 
else  AvgUindTo  :=  AvgUindFrom  +  180; 

{Resultant  bearing  eagnitude  is  the  square  root  of  the  sue  of) 

{  the  squared  components.  > 

ResultHagnitude  :=  sqrt< {component  *  {component  +  Ycoeponent  »  Ycomponent); 

writeln(’X«wponent  =  ', {component s5s3); 
writelnf  Ycoeponent  =  Ycoeponent  :5:3); 
writeln 

end;  {AddVectors) 


{This  procedure  is  used  if  the  aerospace  object  only  glides  (or  falls),  or  > 
{parachutes  (after,  or  in  lieu  of,  gliding)  to  the  surface  .  It's  purpose  is! 
{to  find  the  altitudes  halfway  between  each  altitude  for  which  a  wind  } 
{direction  and  velocity  have  been  reported.  It  begins  with  the  next  higher  1 
{altitude  winds  reported  above  the  surface  level  winds,  and  ends  with  that  > 
{■id-altitude  that  is  greater  than  or  equal  to  the  altitude  at  which  the  1 
{descent  began.  It  then  uses  these  eid-altitudes  to  determine  the  affective  1 
{wind  coaponent  velocities  on  the  descending  aerospace  object.  > 


procedure  GlideOrChute  (var  IncidentAlti  real); 


var  I  :  integer;  {Used  as  counters) 

Teepl,  {Used  in  wind  coaponent 

Teep2  :  real;  {Used  in  wind  coaponent 
LowAltitude,  {Determines  lower  range 

HighAltitude  {Determines  upper  range 

i  array Cl.. 201  of  real; 


velocity  calculations) 
velocity  calculations) 
altitude  for  wind  coaponent) 
altitude  for  wind  component) 


begin  {61ide0rChute) 

{Initialize  variables) 

for  I  :=  1  to  20  do  HighAltitudedl  :=  0.0;  Tempi  :=  0.0; 
for  I  i*  1  to  20  do  LowAltitudeCIl  :=  0.0;  Temp2  :=  0.0; 


{Calculate  wind  components  for  each  applicable  altitude.) 

{If  IncidentAlt  =  500ft.  then  halve  the  wind  velocity  component.) 
if  IncidentAlt  =  500.0  then  AeroUinds[l,31  s=  AeroWinds[l,31  •  0.5; 

{If  IncidentAlt  =  1080ft.,  then  wind  velocity  coaponent  remains  unchanged.) 

if  N  )  1  then  {Confirms  parachute  opened  at  or  above  1500  feet) 
begin  CN  )  1  loop) 

HighAltitudeU)  :=  1000.0; 


{Start  calculations  for  altitudes  above  1000-ft) 
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{Highflltitude  =  altitude  halfway  between  present  one  and  next} 

{higher  one,  unless  Highflltitude  is  greater  than  Incidentfllt.) 
HighAltitudeCIl  :=  (fleroWindsCI+1,11  -  fleroWindsCI,13) 

/2  +  AeroHindstl.ll 

(Lowflltitude  =  previous  Highflltitude.} 

LowflltitudeCIl  :=  HighAltitudeCI-ll; 

if  Incidentfllt  >=  HighflltitudeCIl  then 
begin  {Incidentfllt  >  =  HighflltitudeCIl} 

Tempi  :=  (HighflltitudeCIl  -  LowflltitudeCIl)  /  1000.0; 
fleroWind5[I,3I  :=  AeroHindsCI,31  *  Teapl; 

I  :=  I  +  1; 

if  Incidentfllt  =  HighflltitudeCIl  then 
begin  {Incidentfllt  =  HighflltitudeCIl} 

{Make  next  two  altitude’s  wind  components  =  0} 

AeroHindsCI+1,31  :=  0.0;  AeroUindsCI+2,31  :=  0.0; 

I  :=  N  {Exit  I  =  2  to  N  loop} 
end  {Incidentfllt  =  HighflltitudeCIl} 
end  {Incidentfllt  )=  HighflltitudeCIl} 
else 

begin  {Incidentfllt  <  HighflltitudeCIl} 

Teap2  :=  (Incidentfllt  -  LowflltitudeCIl)  /  1000.0; 
fleroWindsCI,3J  :=  fleroWindsCC,3J  ♦  Tenp2; 

{Make  next  two  altitude’s  wind  components  *  0} 
fleroHindsCI+1,33  :=  0.0;  AeroWindsCU2,33  :=  0.0; 

I  :=  N  {Exit  I  =  2  to  N  loop} 
end  {Incidentfllt  <  HighflltitudeCIl} 
until  I  =  N; 

writeCUind  Data  (Glide  or  Parachute  Opening  Altitude  to’); 
writelnP  surface  level  ftGL)'); 

writelnCWith  Velocity  Coaponents  Calculated  Prior  To  Vector  Addition:’) 
writeln; 

for  I  :*  N  downto  1  do 

begin  {for  I  =  1  to  nuaber  of  individual  wind  vectors} 
write(’  Hinds  at  ’,fleroHindsCI, 13:6:0,’  feet:  ’); 
write(fleroUindsCI,21:4:0,’  degrees  at  ’, AeroHindsCI, 33:3:0); 
writeln ('  knots') 

end;  {for  I  =  1  to  nuaber  of  individual  wind  vectors} 
writeln 

end  {N  )  1  loop} 
end;  {61ide0rChute} 

(llllllli:»HWWIHWtHHHIWIHUHHWH«)HHHmHHlHHIIH} 

{This  procedure  is  used  if  the  aerospace  object  glides  (or  falls)  to  a  lower  } 
{altitude  at  which  parachute(s)  open  to  slow  it’s  descent  to  the  surface.  } 
{It’s  purpose  is  to  find  the  altitudes  halfway  between  each  altitude  for  } 


0412  {which  a  wind  direction  and  velocity  have  been  reported.  It  begins  with  the  > 

0413  {aid-altitude  that  is  lower  than  or  equal  to  the  parachute(s)  opening  > 

0414  {altitude,  and  ends  with  the  aid-altitude  that  is  higher  than  or  equal  to  the} 

0415  {altitude  at  which  the  descent  began.  It  then  uses  these  aid-altitudes  to  > 

0416  {deteraine  affective  wind  coaponent  velocities  on  the  gliding  (or  falling)  > 

0417  {portion  of  the  aerospace  object's  descent.  } 

0410 

0419  procedure  GlideThenChute  (var  IncidentAlt:  real); 

0420 

0421  var  I,H,L  :  integer;  {Used  as  counters) 

0422  Teapl,  {Used  in  wind  coaponent  velocity  calculations) 

0423  Teap2  :  real;  {Used  in  wind  coaponent  velocity  calculations) 

0424  LowAltitude,  {Deteraines  lower  range  altitude  for  wind  component) 

0425  HighAltitude  {Deteraines  upper  range  altitude  for  wind  coaponent) 

0426  :  array Cl.. 20]  of  real; 

0427 

0428  begin  {GlideThenChute) 

0429  {Initialize  variables) 

0430  for  I  :=  1  to  20  do  HighAltitudeCI)  :=  0.0;  Teapl  s=  0.0; 

0431  for  I  :=  1  to  20  do  LowAltitudeCI)  :=  0.0;  Teap2  :=  0.0; 

0432 

0433  {Searches  for  where  the  ChuteAlt  fits  in  between  AeroUinds  array) 

0434  {altitudes,  starting  at  surface  level.) 

0435  I  :=  1;  {Surface  level) 

0436 

0437  repeat 

0430  if  ChuteAlt  )  AeroUindsCI, 11  then  I  I  ♦  1 

0439  until  ChuteAlt  <=  AeroUindsCI, 1); 

0441  {Deteraines  aidpoints  between  AeroUinds  array  wind  altitudes.  ) 

0442  {Then  inserts  OiuteAlt  and  IncidentAlt  to  calculate  wind  component) 

0443  {for  each  reported  altitude’s  actual  velocity  range  of  altitudes  ) 

0444  {between  aidpoints.  ) 

0445 

0446  {First,  find  the  aidpoint  between  AeroWinds  array  altitudes  ) 

0447  {between  which  ChuteAlt  is  located.) 

0440  LowAltitudeCI]  S=  (  (AeroUindsCI, 13-fleroWindsCI-l, 13 )  /  2  )  + 

0449  AeroUindsCI-1,1); 

0450 

0451  {Next,  find  the  aidpoint  between  the  next  given  AeroUinds  array  ) 

0452  {altitude  (above  ChuteAlt)  and  the  next  altitude  above  that  one.  ) 

0453  HighAltitudeCI]  s=  (  (AeroUindsCI+1, 13-AeroUindsCI,  11)  /  2  )  + 

0454  AeroUindsCI, 1J; 

0455 

0456  {If  ChuteAlt  is  at  or  above  the  aidpoint  (LowAltitude),  but  below  ) 

0457  {the  next  given  AeroUinds  array  altitude,  then  the  velocity  ) 

0450  {coaponent  *  the  given  altitude  -  ChuteAlt  all  divided  by  1000.  ) 

0459  if  ChuteAlt  >s  LowAltitudeCI]  then 

0460  begin 

0461  N  s*  I;  {Initialize  N  at  AeroUinds  array  altitude  above  aidpoint) 

0462  Teapl  s»  (AeroUindstI, 1]  -  ChuteAlt)  /  1000 


{If  ChuteAit  is  below  the  aidpoint  (LowAltitude),  but  above  the  > 

{last  given  AeroUinds  array  altitude,  then  the  velocity  component  > 

{equals  the  aidpoint  -  ChuteAit  all  divided  by  1883.  > 

begin 

N  :=  1-1;  {Initialize  N  at  AeroUinds  array  altitude  below  aidpoint) 
Teapl  :=  8;  {Ensures  Teapl  has  no  effect  on  below  calculations) 
AeroUindsCI-1,3)  :=  (  (LowAltitudeCI)  -  ChuteAit)  /  1880)  * 

AeroUindslI-1, 31 

end; 

L  N; 

{If  IncidentAlt  is  at  or  above  the  aidpoint  between  the  AeroUinds  ) 

{array  altitude  and  the  next  higher  one,  then  the  velocity  ) 

{component  equals  the  aidpoint  -  the  given  altitude,  all  divided  ) 

{by  1888.  ) 

if  IncidentAlt  )=  HighAltitudeCII  then 

Teap2  i=  (HighAltitudeCII  -  AeroUindstI, ID  /  1088 

else 

{If  IncidentAlt  is  below  the  aidpoint  between  the  AeroUinds  array  ) 

{altitude  and  the  next  higher  one,  then  the  velocity  component  ) 

{equals  the  IncidentAlt  *  the  given  altitude  all  divided  by  1880.  ) 

TeapS  :=  (IncidentAlt  -  AeroUindstI, 11)  /  1888; 


{Total  wind  component  effect  equals  the  sub  of  conponent  effects  ) 
{above  and  below  the  aidpoint  between  AeroUinds  array  wind  ) 
{altitudes  tiaes  the  given  altitudes  velocity.  ) 
AeroUindstI, 31  :=  (Teapl  ♦  Teap2)  *  AeroUindstI, 31; 


repeat  {until  valid  response) 

if  IncidentAlt  )  HighAltitudeCII  then 
begin  {IncidentAlt  )  HighAltitudeCII) 

I  :=  I  ♦  1; 

{HighAItitude  =  altitude  halfway  between  present  one  and  next) 

{higher  one,  unless  HighAItitude  is  greater  than  IncidentAlt.) 
HighAltitudeCI]  :=  (AeroUindsCI+1, 11  -  AeroUindstI, II) 

/2  +  AeroUindstI,  1); 

if  IncidentAlt  <  HighAltitudeCII  then  HighAltitudeCI)  :=  IncidentAlt; 

{LowAltitude  =  previous  HighAItitude.) 

LowAltitudeCI)  :=  HighAltitudetI-1); 


if  IncidentAlt  >  HighAltitudeCI)  then 

begin  {IncidentAlt  >=  to  present  altitude  liait.) 

Teapl  i*  (HighAltitudeCI)  -  LowAltitudeCI))  /  1888.0; 
AeroUinds Cl, 3)  :=  AeroUindsCI,3)  *  Teapl 
end  {IncidentAlt  )=  to  present  altitude  liait.) 
else 

begin  {IncidentAlt  (  to  present  altitude  liait.) 

Teap2  :>  (IncidentAlt  -  LowAltitudeCI))  /  1888.8; 
AeroUindsCI,3)  i*  AeroUindsCI,3)  »  TeapS; 

H  i*  I; 


0516 

8517  {Zero  out  final  altitude/wind  cowponents  if  next-to-last> 

0518  {altitude  =  Incidentfllt.) 

0519  if  AercWindsIN-1,31  =  Incidentfllt  then  AeroUindstI+1,33  s=  0 

0520  end  {Incidentfllt  <  to  present  altitude  liait.) 

0521  end  {Incidentfllt  )  Highfllt itudeCI] > 

0522  until  Incidentfllt  <=  Highfllt itudeCIl; 

8523 

0524  writelnCHind  Data  (Slide  to  Parachute  Opening  Altitude  AGU  With’); 
0525  writeln  (’Velocity  Coaponents  Calculated  Prior  To  Vector  Addition:’ ); 

0526  writeln; 

0527  for  I  :=  H  downto  L  do 

0528  begin  {for  I  =  nuaber  of  individual  wind  vectors) 

0529  writeP  Hinds  at  ’.ReroHindsCI, 11:6:0,’  feet:  ' >; 

0530  Hrite(AeroUindsCI,2];4:0,’  degrees  at  * , neroUindsCIt33 :3:0) ; 

0531  writeln(’  knots’) 

0532  end;  {for  I  =  nuaber  of  individual  wind  vectors) 

0533  writeln 

0534 

0535  end;  {GlideThenChute) 

0536 


0538  {If  aerospace  object (s)  of  interest  is  a  (are)  pilot (s)  or  astronaut (s)  ) 
0539  {ejecting  fron  a  crippled  vehicle,  this  procedure  asks  the  user  for  ) 
0540  {(judgaental)  perforaance-type  of  vehicle.  Then  it  sets  the  ejection  ) 
0541  {distance  equal  to  the  standards  for  that  type  of  vehicle  as  prescribed  in  ) 
0542  {the  National  SflR  Manual.  } 


0543 

0544  procedure  Ejection; 

0545 

K>46  begin  {Ejection) 

0547 

0548  repeat  {until  valid  response) 

0549  writelnCIf  aerospace  object  is  a  pilot  ejecting  fron  a’); 

0550  writeln(’crippled  aerospace  vehicle,  was  that  vehicle:’); 

0551  writeln; 

0552  writeln!’ 1.  A  turboprop  or  nedium  performance  jet  aircraft'); 

0553  writeln('2.  A  high-perforaance  jet  aircraft’ ) ; 

0554  writeln(’3.  Neither  of  the  above’); 

0555  writeln; 

0556  writePENTER  A  1,  2,  or  3  =>  ’); 

0557  readln(TypeVehicle); 

0558  writeln 

0559  until  (TypeVehicle  >  0)  or  (TypeVehicle  (  4); 

O560 

0561  if  TypeVehicle  =  1  then  EjectDistance  :=  0.5; 

0562  if  TypeVehicle  =  2  then  EjectDistance  :=  0.8; 

0563  if  TypeVehicle  =  3  then  EjectDistance  :=  0.0 

0564 

0565  end;  {Ejection) 

0566 


0568  {Determines  the  resultant  drift  vector  bearing  and  magnitude.  ) 

0569 

0570  procedure  HindDrift  (var  IncidentAlt:  real)} 

0571 

8572  var  I,J  :  integer}  {Used  as  counters} 

0573  BrgRads,  {Individual  bearings  converted  to  radians) 

0574  TeapAlt,  {Used  for  interin  IncidentAlt  calculations) 

0575  Xconponent,  {Horizontal  component  of  individual  vectors) 

0576  Ycoaponent  :  real;  {Vertical  component  of  individual  vectors) 

0577 

0578  begin  {UindDrift) 

0579  {Hake  duplicate  array  of  HindsAloft  for  computation  purposes) 

0588  for  I  :=  1  to  N  do  for  J  :=  1  to  3  do  AeroWindsII,J]  :=  WindsAloft[I,Jl; 

0581 

0582  {Call  procedure  61ide0rChute  if  aerospace  object  uses  no  parachute(s)  to  ) 
0583  {descend  to  surface  level.  ) 

0584  if  (  (AssignedAlt-GlideAltLost)  =  TerrainHeight)  and  (MethodDrift  *  ’S’)  then 
0585  GlideOrChute(IncidentAlt); 

0586 

0587  {Call  procedure  GlideOrChute  if  aerospace  object  uses  only  parachute(s)  to) 


0588  {descend  to  surface  level  (no  glide  or  free-fall  involved).  ) 

0589  if  HethodDrift  =  'P>  then  GlideOrChute(IncidentAlt); 

0590 

0591  {Ensures  the  following  instructions  are  used  only  for  the  program's  ) 

0592  {initial  pass  through  procedure  UindDrift.  ) 

0593  if  OnePassCompleted  =  false  then 
0594 

0595  {If  aerospace  object  glides  or  falls  to  a  lower  altitude  before  using  ) 

0596  {parachutes  to  descend  to  surface  level,  then  call  procedure  ) 

0597  {GlideThenChute  for  the  ’fall  or  glide  portion*  of  the  descent.  ) 


0598  if  (AssignedAlt  -  GlideAltLost)  >=  500.0  then  GlideThenChute (IncidentAlt); 

0599 

0600  {At  this  point,  individual  wind-ccmponent-contributions  exist  in  the) 

0601  {cells  of  AeroUinds  array;  Ue  now  calculate  the  resultant  magnitude  ) 

0602  {and  velocity  of  these  vectors  using  procedure  AddVectors.  ) 

0603  X component  :=  0.0;  Y component  :=  0.0;  {re-initialize) 

0604  for  I  :=  1  to  (N  -  1)  do 

0605  begin  {calculate  X component  and  Ycoaponent  sums) 

0606  {Convert  all  vector's  individual  bearings  into  radian  units.) 

0607  BrgRads  :=  AeroUindsII,2]  /  radians; 

OMSK 

coco 

0609  {Total  all  AeroUinds  individual  X  and  Y  vector  components.) 

0610  Xcomponent  :=  Xconponent  +  sin (BrgRads)  *  AeroUindstI,3); 

0611  Ycoaponent  :=  Ycoaponent  +  cos(BrgRads)  *  AeroWindsCI,31 

0612  end;  {calculate  Xcomponent  and  Ycoaponent  suns) 

0613 

0614  RddVect  ors ( Xcomponent , Ycoaponent ) ; 

0615 

1616  if  HethodDrift  =  '6'  then 
0617  begin  {Gliding  or  falling  object) 

0618  Brg61ideUinds  :=  AvgUindTo; 

0619  TeapAlt  :=  GlideAltLost  /  1000; 
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SlidcUindSpeed  :*  ResultMagnitude  /TeepAlt; 
and;  {Gliding  or  falling  object) 

if  NethodDrift  «  'P*  then 

begin  (Aerospace  object  uses  parachute (s)  descent) 

BrgParaOrift  :*  AvgMindTo; 

TeapAlt  :=  IncidentAlt  /  1808; 

ParaOriftSpeed  :=  ResultMagnitude  /TeepAlt; 

writeln(’The  average  winds  aloft  affecting  the  parachute  drift  of1); 

write ('the  aerospace  object  are  bearing  to  ', BrgParaOrift :3:8); 

writelnC  degrees  at  ’,ParaDriftSpeed:3:i,’  knots.'); 

writeln; 

writelnC Refer  to  the  'Parachute  Drift  Table'  in  the  National'); 
writeln (’Search  and  Rescue  Manual  (approximately  page  8-12)  and'); 
writelnC interpolate  parachute  drift  distance  (in  nautical  wiles)'); 
writelnC from  the  published  chart.  For  example:  For  a  parachute'); 
writeln (’opening  altitude  of  3888  feet  (915  meters)  and  winds  aloft’); 
writelnCaveraging  15  knots,  the  parachute  drift  distance’); 
writelnC  interpolates  to  8.675  nautical  miles).’); 
write ('PARACHUTE  DRIFT  DISTANCE  »>  ’); 
readln(DistanceParaOrift) ; 
writeln; 

writelnCRefer  to  the  'Parachute  Descent  Data  Table*  in  the  National’) 
writelnC Search  and  Rescue  Manual  (approximately  page  8-11)  and’); 
writeln (’determine  the  parachute  descent  rate  (in  feet-per-second)'); 
writelnCfrow  the  published  chart.  For  example:  A  28-foot  (C-9)’); 
writelnCescape  parachute  at  7888  feet  lowers  a  person  at  a  rate  of'); 
writeln(’21.4  ft/sec,  while  the  three,  83-ft. -diameter  parachutes'); 
writelnCon  the  Apollo  space  capsule  allowed  for  a  32.5  ft/sec'); 
writeln (’descent  at  this  same  altitude.’); 
writeC PARACHUTE  DESCENT  RATE  =)  ’); 
readln(RateParaDescent) ; 
writeln; 

(Calculate  parachute  descent  rate  in  minutes) 

TimeParaDescent  s=  IncidentAlt  /  (RateParaDescent<68) ; 

if  OnePassCompleted  -  false  then 
begin  (procedure  Aero61ide  has  not  been  used  by  program) 
repeat  (until  valid  compass  heading) 

writclnCPlease  enter  descent  or  bailout  heading,  if  known'); 
writeC  (Enter  361  if  not  known).  HEADING  (8-361)  =}  ’); 
read 1 n ( Descent  Head i ng ) ; 

if  (DescentHeading  (  0)  or  (DescentHeading  >  361)  then 
mritelnCThis  heading  must  be  between  0-361.  Try  again!’); 
writeln 

until  (DescentHeading  )*  0)  and  (DescentHeading  <*  361); 

Ejection; 

(Finds  maxieus  aerospace  displacement  vector) 

BrgRads  :=  BrgParaOrift  /  radians; 
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Xcoeponent  i*  sin(BrgRads)  *  DistanceParaDrift; 
Ycoeponent  :*  cos (Brj  Rads)  *  DistanceParaDrift; 
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if  (DescentHeading  <  361)  and  (EjectDistance  )  0.0)  then 
begin  {descent  heading  known  and  EjectDistance  significant) 

BrgRads  Is  DescentHeading  /  radians; 

Xcoeponent  s=  Xcoeponent  ♦  sin (BrgRads)  *  EjectDistance; 
Ycoaponent  :=  Ycoaponent  ♦  cos (BrgRads)  *  EjectDistance; 
AddVectors(Xcoeponent, Ycoaponent) ; 

TotalBrg  :=  AvgUindFroa; 

TotalDistance  :=  ResultHagnitude 
end  {descent  heading  known  and  EjectDistance  significant) 
else 

begin  {descent  heading  and  EjectDistance  nos  both  significant) 
TotalBrg  :=  BrgParaDrift; 

TotalDistance  :=  DistanceParaDrift; 
if  DescentHeading  =  361  then 
if  EjectDistance  >  0.0  then 
TotalRadius  :=  EjectDistance 

end  {descent  heading  and  EjectDistance  not  both  significant) 
end;  {procedure  Aero61ide  has  not  been  used  by  prograa) 

if  OnePassCoapleted  =  true  then 

begin  {Adding  parachute  data  to  glide  descent  data  for  total  vector.) 
{Finds  total  aerospace  displaceaent  vector) 

BrgRads  :=  BrgParaDrift  /  radians; 

Xcoeponent  !=  sin(BrgRads)  •  DistanceParaDrift; 

Ycoeponent  s*  cos (BrgRads)  ♦  DistanceParaDrift; 

BrgRads  :=  TrajectBrg  /  radians; 

Xcoeponent  :=  Xcoeponent  ♦  sin (BrgRads)  •  TrajectDistance; 
Ycoeponent  s=  Ycoeponent  ♦  cos(Br-Rads)  *  TrajectDistance; 
AddVectors  <  Xcoeponent ,  Ycoeponent ) ; 

TotalBrg  :=  AvgUindFroa; 

TotalDistance  :s  ResultHagnitude; 

TotalRadius  :s  TrajectRadius 

end  {Adding  parachute  data  to  glide  descent  data  for  total  vector.) 
end;  {Aerospace  object  uses  parachute(s)  descent) 

OnePassCoepleted  :=  true 
end;  {WindDrift) 


{Prints  keyboard-input  wind  altitudes,  directions,  and  velocities,  on  the) 
{video  screen  for  user  verification. ) 

procedure  UindChart; 

var  I  i  integer;  {Used  as  a  counter) 

begin  {UindChart) 
for  I  i«  1  to  N  do 

begin  {for  I  *  1  to  nuaber  of  individual  wind  vectors) 


9724  write(I:2,’.  Uinds  at  WindsAloft Cl, 13:6:9,'  feet:  ’); 

9725  write(WindsAloft[I, 21:4:9,’  degrees  at  ’, WindsAloft [I, 31:3:0); 

972S  writelnP  knots’) 

9727  end  {for  1  *  1  to  nuiber  of  individual  Hind  vectors! 

9728  end;  tUindChart) 

9729 

9731  {Allows  user  to  change  Hind  altitudes,  directions,  and  velocities,  entered) 

9732  {below  in  procedure  InputWinds. > 

9733 

9734  procedure  VerifyWinds; 

9735 

•736  var  WindCheck  :  char;  {Used  to  verify  input  wind  data) 

9737  J  :  integer;  {Used  as  a  counter) 

•738  UindError  :  integer;  {Used  to  indicate  which  input  Hind  data  is  in  error) 

9739 

9749  begin  {VerifyWinds) 

9741  WindCheck  :*  ’Y1;  UindError  :*  -1;  {initialize) 

•742 

•743  {Verify  input  Hind  directions  and  velocities.) 

9744  WindChart;  {Prints  current  wind  data  on  video  screen) 

9745 

9746  repeat  {until  WindCheck  =  valid  response) 

9747  writeln; 

•748  writeln (’Are  these  altitudes,  wind  directions,  and  wind'); 

9749  writeC velocities  all  correct?  (y/n)  *); 

8759  readln(WindCheck) ; 

9751  writeln 

8752  until  (WindCheck  in  ValidAnswers); 

•753 

8754  while  (WindCheck  in  No)  do 

8755  begin  {while  WindCheck  *  NO) 

•756  repeat  {until  UindError  *  9  to  29) 

•757  writelnt’ Which  line  is  in  error?’); 

9758  writeCEnter  nuaber,  or  zero  for  none)  =)  ’); 

9759  read In (UindError); 

9769  writeln 

9761  until  (UindError  >=  9.9)  and  (UindError  (  21.9); 

•762 

•763  if  UindError  )  9.9  then 

8764  begin  {if  an  input  line  is  identified  as  being  in  error) 

9765  writeCPlease  enter  altitude,  wind  direction  '); 

9766  writeln(’and  velocity  to  replace:’); 

•767  write (WindsAloft [UindError, 11:4:9,'  *); 

9768  write (WindsAloft [UindError, 21:4:9); 

9769  write!’  ’, WindsAloft [UindError, 31:4:0,'  =>  ’); 

9779  for  J  :=  1  to  3  do  read (WindsAloft [UindError, Jl); 

•771  writelns(2) 

9772  end;  {if  an  input  line  is  identified  as  being  in  error) 

•773 
•774 
•775 


UindChart;  {Prints  current  wind  data  on  video  screen) 


•776  witeln; 

•777  repeat  {until  valid  UindCheck  response! 

•778  wit# (’fire  all  other  lines  correct?  (y/n>  ’)} 

•779  read In (UindCheck); 

0788  witeln 

•781  until  (UindCheck  in  ValidAnswers) 

•782 

•783  end;  {while  UindCheck  *  NO) 

0784  CLRSCR 

0785  end;  (VerifyUinds) 

•786 

0788  {Queries  user  for  altitudes  at  which  the  aerospace-object  begins  to  fall  or  > 

0789  {glide,  or  to  deploy  parachute(s).  Then  it  asks  for  wind  directions  and  > 

0790  {velocities  at  those  altitudes  through  which  the  object  descends.  The  user  > 

0791  {is  allowed  to  verify/change  any  input  data  before  it  is  used  in  deternining  > 

0792  {the  resultant  drift  vector  bearing  and  magnitude  by  procedure  ParaDrift.  > 

0793 

0794  procedure  InputWinds  (var  Incidentfllt  :  real); 

0795 

07%  var  I,  {Used  as  counter) 

0797  P  !  integer;  {Tracks  t  of  input  wind  altitudes  above  Incidentfllt) 

0798  Temp2  :  real;  {Confiras  input  wind  altitudes  are  wultiples  of  1000) 

0799 

0800  begin  {InputUinds) 

0801  P  :=  0;  {Initialize) 

0802  CLRSCR; 

0803 

0804  {Starts  bulk  of  winds  aloft  computations  if  Incidentfllt  )=  500ft.) 

0805  if  Incidentfllt  )-  508.0  then 

0886  begin  {winds  aloft  computations) 

0887 

0888  {Begin  entry  of  individual  wind  coaponents  for  applicable  altitudes.) 

0809  witeln; 

0810  witeln  ('PLEASE  ENTER  REPORTED  OR  FORECAST  UIND  DIRECTION  AND  VELOCITY’); 

0811  witelnl'FOR  EflCH  KNOWN  ALTITUDE  WITHIN  THE  FOLLOWING  CONSTRAINTS*’ >; 

0812  witeln; 

0813  witelnC  1.  You  wust  input  the  altitude,  wind  direction  (0  to  360),  and’); 

6814  witelnC  velocity  (0  to  99),  from  surface  level  up  to  the  altitude  at’) 

0815  witelnC  which  the  power-off  descent  began  or  parachute(s)  opened,’); 

0816  witelnC  whichever  is  higher.  You  will  then  be  asked  to  enter  one’); 

0817  witelnC  higher  altitude  for  which  wind  data  is  known.  Finally,  you’); 

0818  witelnC  will  be  able  to  verify  your  input  data  before  any’); 

0819  witelnC  computations  are  sade.’); 

0820  witeln; 

0821  witelnC2.  Altitudes  wust  be  entered  in  rounded  thousands  of  feet,'); 

0822  witelnC  e.g.,  3000,  7000,  12000,  not  3S00,  5288,  etc.’); 

•823  witeln; 

•824  witeln('3.  An  example  follows  of  input  altitude/winds  data  format:'); 

•825  witeln; 

•826  witeC  ALTITUDE  =  0  (Surface  level);  Enter  lowest’); 

•827  witelnC  altitude  first!’); 


writelnC  UIND  DIRECTION  =  338' )  5 
writelnC  UIND  VELOCITY  =25' >5 
writeln; 

writeCHIT  RETURN  (Owe  or  twice,  as  necessary)  TO  CONTINUE’) 5 
readln(continue);  {Pauses  prograa  before  next  dear-screen  coawand) 
CLRSCR; 

(Input  surface  winds) 

writeCBegin  altitude/wind  data  input  starting  with  surface'); 
writelnC  level  winds:'); 
writelnCflLTITUDE  *8'); 

repeat  (until  wind  direction  =  0-368  degrees) 
write ('HIND  DIRECTION  =  '); 
readln(UindsAloft  Cl, 21 ) ; 

if  (UindsflloftCl,2I  <  0.0)  or  (WindsAloft 11,21  >  360.0)  then 
begin  (Uind  direction  not  in  0-360  degree  range) 

writelnCUind  direction  Bust  be  between  0  and  360.  Try  again!’); 
writeln 

end  (Uind  direction  not  in  0-360  degree  range) 
until  (HindsAIoftCl,2I  >=0.0)  and  (UindsflloftCl,2]  <=  360.8); 

repeat  (until  wind  velocity  =  0-99  (knots,  or  whatever)  ) 
writeCUIND  VELOCITY  =  ’); 
readlnfWindsAloft  Cl, 31 ) ; 

if  (UindsAloftCl,31  <  0.0)  or  (UindsAloftCl,3)  >  99.0)  then 
writelnCUind  velocity  Bust  be  between  0  and  99.  Try  again!’); 
writeln 

until  (UindsflloftCl,3I  >=0.0)  and  (UindsAloftCl,3]  (=99.0); 

(Input  winds  at  other  altitudes) 

I  1=  1;  (Used  to  repeat  loop  until  all  valid  winds  are  input) 

N  :=  1;  (Used  to  note  nuaber  of  altitudes  used) 

if  (IncidentAlt  -  TerrainHeight)  )=  1500  then 
begin  (for  altitudes  )=  1500  feet) 

repeat  (until  I  *  21) 

I  :*  I  ♦  1;  (I  =  2  to  20  individual  altitudes/winds  data  input  loop) 
N  :*  N  ♦  1;  (Notes  nuaber  of  altitudes  used) 

(Repeat  altitude  input  process  until  the  next  altitude  input  is  at) 
(least  1000  feet  higher  than  the  previous  one,  greater  than  1000,  ) 
(1000  feet,  and  less  than  or  equal  to  42800  feet. ) 
repeat 

writeC ALTITUDE  »  ’); 
readln(UindsAloft 11,11); 

if  UindsAloftCI,ll  (  UindsAloftCI-1,11  then 
begin  (Input  altitude  Bust  be  greater  than  previous  one  input) 
writeCThis  altitude  Bust  be  higher  than  the  last  altitude’); 
writelnC  input.  Try  again!’); 


uriteln 

end;  {Input  altitude  eust  be  greater  than  previous  one  input) 

if  UindsAloft II, 11  <  10SC.0  then 

begin  {Input  altitude  eust  be  1=  than  1080) 

writeln(’This  altitude  eust  be  >*  1880.  Try  again!’); 
uriteln 

end;  {Input  altitude  eust  be  )-  than  18881 

Teep2  :=(WindsAloftII,l)  /1800.0>-trunc (UindsAloft II, 1)  /1888.8); 
if  TeepS  0  0.0  then 

begin  (UindsAloft  eust  be  a  eultiple  of  18881 

write (’This  altitude  eust  be  a  eultiple  of  1888  feet.’); 

uriteln (*  Try  again!’); 

writeln 

end;  (UindsAloft  eust  be  a  eultiple  of  10881 

if  UindsAloftll, 11  )  42808.0  then 

begin  {Input  altitude  eust  be  less  than  42880) 

writelnCThis  altitude  eust  be  <=  42888.  Try  again!’); 
writeln 

end  (Input  altitude  eust  be  less  than  428881 

until  (UindsAloftll, 11  >  UindsAloft CI-1, 11)  and 

(UindsAloft It, 11  >*  1800.0)  and  (UindsAloft II, 11  <=  42888.8); 

repeat  (until  wind  direction  -  8-368  degrees) 
writel’UIND  DIRECTION  =  ’); 
readln(UindsAloft II, 21 ) ; 

if  (UindsAloft II, 21  (  8.8)  or  (UindsAloft I I, 23  )  368.8)  then 
begin  {Uind  direction  not  in  0-360  degree  range) 

writeCHind  direction  oust  be  between  8  and  368.  Try  again!’); 

writeln; 

writeln 

end  {Uind  direction  not  in  0-368  degree  range) 
until  (UindsAloft II, 21  >=  8.0)  and  (UindsAloftll, 2]  <=  368.8); 

repeat  (until  wind  velocity  =  8-99  (knots,  or  whatever)  > 
writel’UIND  VELOCITY  =  '); 
readln(UindsAloft II,  31 ) ; 

if  (UindsAloft  II,  33  (  0.0)  or  (UindsAloft  II,  3)  )  99.8)  then 
writeln(’Uind  velocity  eust  be  between  0  and  99.  Try  again!’); 
writeln 

until  (UindsAloft II, 3)  >>8.8)  and  (UindsAloft II, 3)  <*  99.0); 

(P  notes  first  altitude  >*  IncidentAlt  (A6L)  and  requests  one  wore) 
if  (UindsAloft II, 11  )*  IncidentAlt)  then 
begin  (Input  altitude  >=  IncidentAlt  (AGD) 

P  i«  P  ♦  1; 
if  P  «  1  then 

writeln!’ Enter  data  for  just  one  sore,  higher  altitude.’); 
writeln 


8SH!13iSISSiSI8S88?2i8?il83318S8SS8SIS?812iSS118388?8 


1932 


end;  {Input  altitude  >=  IncidentAlt  (AGL)> 

<P  notes  second  altitude) IncidentAlt  (AGL)  then  terminates  the  input  loop) 
{by  setting  1  equal  to  21. > 

if  (UindsAloftlI,l)  >=  IncidentAlt)  and  (P  =  2)  then  I  :=  21 
until  I  =  21 

end;  {for  altitudes  >■  1500  feet> 


CLRSCR; 

VerifyWinds; 

Kind Drift (IncidentAlt) 

end  {Minds  aloft  computations) 

end;  {InputUinds) 


{Asks  user  for  aerospace  object  glide  information,  if  applicable.) 


procedure  AeroGIide; 
const  FtNm  =  6076; 


var  1 component,  {Horizontal  component  of  individual  vectors) 

Ycomponent  i  real;  {Vertical  component  of  individual  vectors) 

begin  {Aero61ide) 

X component  :*  0.0;  Ycomponent  :=  0.0;  {initialize) 
repeat  {until  valid  Glide  Ratio) 

NritelnC Please  enter  the  aerospace  object” s  power-off  glide  ratio.’); 
NritelnC (Refer  to  object’ ’s  operations  manual,  if  one  exists.)'); 
NritelnC  Otherwise,  enter  best  estieate.  For  example:  If  the  object’); 
MritelnCglides  3  feet  horizontally  for  every  foot  of  vertical  descent'); 
mriteC (3/1),  enter  a  3.  GLIDE  RATIO  -)  ’); 
readln(GlideRatio); 
if  61ideRatio  (  0  then 

Mriteln<’61ide  Ratio  must  not  be  less  than  zero.  Try  again!’); 
Nriteln 

until  61ideRatio  )*  0; 


GlideDistance  i*  (GlideRatio  •  GlideAltLost)  /  FtNm;  {Converts  ft  to  nm) 

repeat  {until  valid  compass  heading) 

MritelnC Please  enter  descent  or  bailout  heading,  if  knoNn’); 
nriteC (Enter  361  if  not  knoMn).  HEADING  (0-361)  =>  '); 
read In (DescentHead i ng ) ; 

if  (DescentHead ing  <  0)  or  (DescentHeading  )  361)  then 

NritelnCThis  heading  must  be  between  0-361.  Try  again!’); 
nriteln 

until  (DescentHeading  )=  0)  and  (DescentHeading  (*  361); 


0984 

8985  repeat  {until  valid  descent  rate) 

8986  writelnC  Please  enter  aerospace  object's  rate  of  descent  in’); 

8987  write!'  feet-per-uinute.  DESCENT  RATE  =>  '); 

8988  readln(DescentRate); 

8989  if  DescentRate  (  8  then 

8990  writelnl’ Descent  rate  eust  not  be  less  than  zero.  Try  again!’); 

0991  Mriteln 

8992  until  DescentRate  >=  0; 

0993  DescentTiee  i*  SlideflltLost  /  DescentRate; 

8994 

8995  {Returns  average  Mind  affecting  object  free  incident  altitude  to  parachute) 
0996  {opening  altitude  or  surface  level.) 

8997  InputWinds(RssignedAlt); 

8998  UindDisplaceeent  :=  (GlideUindSpeed  /  68)  *  DescentTiee; 

AOQQ 

1000  if  DescentHeading  <  361  then  {Descent  or  bailout  heading  known) 

1801  begin  {Calculate  resultant  vector  of  61 ide  +  Uind  vectors.) 

1002 

1003  {Convert  winds  bearing  on  gliding  object  into  radian  units.) 

1004  BrgRads  BrgGlideUinds  /  radians; 

1005  Xcoeponent  :=  sin(BrgRads)  *  UindDisplaceeent; 

1006  Ycoeponent  s*  cos(BrgRads)  <  UindDisplaceeent; 

1007 

10OB  BrgRads  :=  DescentNeading  /  radians; 

1009  Xcoeponent  j=  Xcoeponent  ♦  sin (BrgRads)  *  GlideDistance; 

1010  Ycoeponent  ;=  Ycoeponent  +  cos (BrgRads)  *  GlideDistance; 

1011  AddVectorsttcoeponent,  Ycoeponent); 

1012  BrgMaxGlide  :=  AvgUindTo; 

1813  MaxDistanceGlide  :=  ResultHagnitude 

1014  end  {Calculate  resultant  vector  of  61ide  ♦  Uind  vectors.) 

1015  else 

1016  begin  {descent  or  bailout  heading  unknown) 

1017  BrgMaxGlide  :*  BrgGlideUinds; 

1018  MaxDistanceGlide  :=  UindDisplaceeent; 

1019  MaxRadiusGlide  :=  GlideDistance 

1020  end;  {descent  or  bailout  heading  unknown) 

1021 

1022  if  (AssignedAlt  -  GlideAltLost)  )=  508.0  then 

1023  begin  {Parachute (s)  were  used) 

1024  Ejection; 

1025 

1026  {Calculate  resultant  vector  of  MaxGlide  +  Bailout  vectors.) 

1027  BrgRads  i=  BrgMaxGlide  /  radians;  {Convert  bearing  into  radian  units.) 

1028  Xcowponent  :=  sin(BrgRads)  *  MaxDistanceGlide; 

1829  Ycoeponent  cos (BrgRads)  *  MaxDistanceGlide; 

1038 

1031  if  (DescentHeading  (  361)  and  (EjectDistance  )  0.0)  then 

1032  begin  {Descent  heading  known  AND  EjectDistance  >  0) 

1833  {Convert  bearing  into  radian  units. ) 

1034  BrgRads  t=  DescentHeading  /  radians; 

1035 
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{Total  all  vector's  individual  X  and  Y  cosponents. > 

X component  :=  X component  +  sin(BrgRads)  *  EjectOistance; 

Yccaponent  :=  Ycoaponent  +  cos(BrgRads)  *  EjectOistance; 

Add Vectors ( Xcooponent , Ycowponent ) ; 

TrajectBrg  :=  AvgUindTo; 

TrajectDistance  :=  ResultNagnitude 
end  {Descent  heading  known  AND  EjectOistance  >  0> 
else 

begin  {Descent  heading  unknown  OR  EjectOistance  =  0> 

TrajectBrg  s=  BrgRaxGlide; 

TrajectDistance  :=  KaxDistanceGIide; 
if  DescentHeading  =  361  then 
if  EjectOistance  1  0.0  then 

TrajectRadius  :=  HaxRadiusGlide  ♦  EjectOistance 
else  TrajectRadius  :=  HaxRadiusGlide 
end;  {Descent  heading  unknown  OR  EjectOistance  =  0> 

HethodDrift  :=  * P* ;  {Switches  froa  "G"  to  *P"  node  as  new  KethodDrift) 
UindDrift (ChuteAlt) 
end  {Parachute(s)  were  used) 
end;  (AeroGlide) 

{HKH»m»HiHinimm»nw»mmnnwn«eHHiH<H»Hnimmi} 

{Gathers  additional  information  concerning  the  aerospace  object's  glide  > 
{before  coenencing  calculations.  > 

procedure  GlideData; 

begin  {GlideData) 

KethodDrift  :=  '6';  {Selects  a61ide*  node  as  the  eethod  of  drift.) 

repeat  {Until  valid  AssignedAlt  response) 

writeC  Approximate  (to  the  nearest  500  feet)  at  what  altitude  '); 
writeln(’above’); 

write Cnean  sea  level  (HSU  did  the  aerospace  objecf's  '); 
writelnC  power-off' ) ; 

writeC descent  begin?  (If  unknown,  enter  the  KSL  height  of  the  '); 
writelnC  last'); 

writeCassigned  flight  altitude.)  ALTITUDE?)  ’); 
readln(AssignedAlt); 

{Used  to  ensure  AssignedAlt  is  a  aultiple  of  500) 

Temp  i=  (  AssignedAlt/500.0  )  -  trunc(  AssignedAlt/500.0  ); 
if  Temp  0  0  then 

writelnCGiven  altitude  is  not  a  multiple  of  500  ft.'); 
writeln 

until  AssignedAlt  )  TerrainHeight; 

AssignedAlt  <?  AssignedAlt  -  TerrainHeight;  {Convert  to  AGL  altitude) 
repeat  {until  valid  altitude) 

writelnCPlease  enter  the  altitude  lost  (to  the  nearest  500  feet)'); 


.  ] 


1088  writelnl* between  the  above  altitude  and  the  bailout/parachute’ ); 

1889  writelnCdeployaent  altitude.  Altitude  lost  aust  be  at  least  500* ); 

1090  writelnCfeet.  (If  parachutes  Here  not  used,  enter  the  altitude'); 

1091  writelnC  lost  before  surface  contact. )’ ) ; 

1092  write  (’ALTITUDE  LOST  =>  ’); 

1093  readln(GlideAltLost) ; 

1094 

1095  LUsed  to  ensure  GlideAltLost  is  a  Multiple  of  5W) 

10%  Teap  :=  (  GlideAltLost/500.0  )  -  trunc(  61ideAltLost/500.0  ); 

1097 

1098  if  Teap  0  0  then 

1099  begin  (GlideAltLost  not  aultiple  of  500  feet> 

1100  «rite(’6iven  altitude  lost  is  not  a  aultiple  of  580  ft.  ’>; 

1101  writelnCTry  again!') 

1102  end;  (61ideAltLost  not  aultiple  of  500  feet) 

1103 

1104  if  61ideAltLost  (  500  then 

1105  begin  (GlideAltLost  not  )=  500  feet) 

1108  write!' This  altitude  aust  be  at  least  500  feet.  ’); 

1107  writelnCTry  again!’) 

1108  end;  (GlideAltLost  not  )=  500  feet) 

1109 

1110  if  61ideAltLost  )  AssignedAlt  then 

1111  begin  (61ideAltLost  greater  than  possible! 

1112  writet’It  is  inpossible  to  lose  aore  altitude  than  you  have.  ’); 

1113  writelnCTry  again!') 

1114  end;  (61ideAltLost  greater  than  possible} 

1115 

1118  writeln 

1117  until  (Tenp  =  0.0)  and  (GlideAltLost  )=  500)  and 

1118  (61ideAltLost  (=  AssignedAlt); 

1119 

1120  ChuteAlt  :=  AssignedAlt  -  GlideAltLost; 

1121  AeroGlide 

1122 

1123  end;  (61ideData> 

1124 

1125  (WWHWWH»HHH»HimHHmmmHUH«H«WtHH»»HHinHHW) 

1128  (6athers  additional  inforaation  concerning  the  aerospace  object's  parachute  > 

1127  (descent  before  coamencing  calculations.  } 

1128 

1129  procedure  ChuteData; 

1130 

1131  begin  (ChuteData) 

1132 

1133  repeat  (until  valid  response) 

1134  writelnCAfter  receiving  report  of  the  search  objecf's  last  known'); 

1135  writeln ('coordinates  (lat/long),  did  the  object  successfully  use’); 

1138  writeC parachutes  to  descend?  (y/n)  =>  '); 

1137  readln(chute); 

1138  writeln 

1139  until  (chute  in  ValidAnswers); 
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me 

1141 

1142 

1143 

1144 

1145 
1148 

1147 

1148 

1149 
1158 

1151 

1152 

1153 

1154 

1155 
1158 

1157 

1158 

1159 
1188 
1161 
1162 
1183 

1164 

1165 
1188 

1167 

1168 
1169 
1178 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 
1188 
1181 
1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 


if  (chute  in  Yes)  then 
begin  {parachute(s)  used} 

HethodDrift  :=  'P';  {Selects  'Parachute*  eode  as  the  eethod  of  drift.) 

repeat  (Until  valid  IncidentAlt  response) 

write!’ Approximate  (to  the  nearest  588  feet)  at  what  ’); 
writelnC  altitude'); 

write  ('above  eean  sea  level  (HSU  did  the  parachute(s)  '); 
writelnCopen?'); 

writelnC (Enter  a  zero  if  descent  began  below  580  feet  AGL)'); 
write<’ALTITUD£=>  '); 
readln(IncidentAlt) ; 

if  (  (IncidentAlt-TerrainHeight)  (  500  )  and 
(IncidentAlt  0  0.0)  then 
begin  (IncidentAlt  not  )=  580  feet  AGL) 

write  (’This  altitude  nust  be  at  least  508  feet  AGL  ’); 
writelnC  Try  again!’); 
writelnC  (Type  a  zero  if  not  applicable)') 
end;  (IncidentAlt  not  )=  500  feet  AGL) 

if  IncidentAlt  =  0  then 
begin  (Parachute (s)  not  effectively  used) 
writeln; 

writelnCBy  entering  a  zero  to  this  question  you  have’); 
writelnC  indicated  that  paracfmte(s)  were  not  used  5001); 
writelnC  feet  or  wore  above  surface  level.  This  weans'); 
writelnC parachute  drift  does  not  significantly  affect' ); 
writelnCthe  surface  position  of  your  search  object.'); 
writelnC  You  should,  therefore,  proceed  with  search'); 
writeln  ('planning  using  the  object”s  last  known  position’); 
writelnCas  the  surface  starting  (DATUH)  point.'); 
end;  (Parachute(s)  not  effectively  used) 

(Used  to  ensure  IncidentAlt  is  a  wultiple  of  500) 

Tewp  :=  (  Incident Alt/588. 8  )  -  trunc(  IncidentAlt/500.0  ); 
writeln 

(IncidentAlt  wust  be  508-42880  feet  and  in  units  of  500  feet,  or  =  0) 
until  (IncidentAlt  )=  0.0)  and  (IncidentAlt  (=  42808.0)  and 
(Tewp  *  0.8); 

ChuteAlt  !=  IncidentAlt  -  TerrainHeight;  (Convert  to  AGL  altitude) 

(If  ChuteAlt  >=  500  feet  then  continue  with  program  run,  else  tereinate.) 
if  ChuteAlt  0  0.0  then  InputWinds (ChuteAlt) 

end  (parachute(s)  used) 
end;  (ChuteOata) 

(WHWWHHHHHHHWHWHWHHHWHHHHHHWHHHHHIWW) 

(Prints  out  record  of  search  planning  inputs  and  calculations  frow) 

(this  program.  } 


1132 

1193  procedure  WriteToDisk; 

1194 

1195  var  I  :  integer; 

11%  LastDegree, 

1197  LastMinute  :  real; 

1198  AeroDat  :  text; 

1199 

1200  begin  {WriteToDisk} 

1201  assign<AeroDat,'AeroData' ); 

1202  rewrite I AeroDat); 

1203 

1204  LastDegree  :=  trunc(LastLatitudeKnown); 

1205  LastMinute  :=  round (  (LastLatitudeKnown-LastDegree)  *  100); 

1206  write(AeroDat,’Missing  aerospace  object/pilot (s)  last  known  position:’); 

1207  if  LastDegree  I  10  then  writelAeroDat,’  0’, LastDegree: 1:0,’-’) 

1208  else  writelAeroDat,’  ’,LastDegree:2:0,’-'); 

1209  if  LastMinute  <  10  then  writelAeroDat, '0' , LastMinute: 1:0,’  ’) 

1210  else  write(AeroDat,LastMinute:2:0,'  ’); 

1211  if  LatNS  =  'N'  then  writelAeroDat,' North')  else  writelAeroDat, ’South’); 

1212 

1213  LastDegree  :=  truncILastLongitudeKnown); 

1214  LastMinute  :=  round!  (LastLongitudeKnowrrLastDegree)  *  100); 

1215  if  LastDegree  I  10  then  writelAeroDat,'  0',LastDegree:l:0,’-') 

1216  else  write I AeroDat , '  ’ , LastDegree:2:0, ’ -’ ) ; 

1217  if  LastMinute  <  10  then  writelAeroDat, ’0',LastMinute:l:0,'  ') 

1218  else  writelAeroDat, LastMinute:2:0,’  ’); 

1219  if  LongEW  =  'W  then  writelnlAeroDat, ’West’ )  else  writeln (AeroDat, ’East’); 

1220 

1221  {Prints  a  zero  in  front  of  one-digit  dates  in  Z  DT6  forwat) 

1222  if  truncILastDateTine  /  10000)  (  10  then 

1223  writeln(AeroDat,'Tine:  0’,LastDateTi»e:5:0,’Z  ’,LastMonth:2,’/',LastYear:4) 

1224  else 

1225  writeln (AeroDat, ’Tiee:  ',LastDateTiBe:6:0,'Z  ’,LastMonth:2,'/',LastYear:4); 


1226 

1227  if  GlideAltLost  >  0.0  then 

1228  begin  {indicates  procedure  AeroGlide  was  used) 

1229  writelAeroDat,' Incident  or  last  assigned  altitude  =  '); 

1230  writelnlAeroDat, (AssignedAlt+TerrainHeight) :6:0,'  feetMSLM; 

1231  writelAeroDat, 'Surface  level  or  terrain  height  =  '); 

1232  writelnlAeroDat, TerrainHeight:6:0,'  feet  KSLM; 

1233  writelAeroDat, 'Altitude  lost  during  glide  or  descent  =  ’); 

1234  writelnlAeroDat, GlideAltLost:6:0,’  feet’); 

1235  writelAeroDat, ’Power-off  glide  ratio  (Hz/Vertical)  =  ’); 

1236  writelnlAeroDat, 61ideRatio:6,’  to  1’); 

1237  writelAeroDat, 'Maxieua  horizontal  glide  distance  =  ’); 

1238  writelnlAeroDat, GlideDistance:6:l,'  nautical  eiles’); 

1239  if  DescentHeading  (  361  then 

1240  begin  {descent  heading  known) 

1241  writelAeroDat, ’Descent  or  bailout  heading  =  ’); 

1242  writelnlAeroDat,DescentHeading:6:0,’  degrees  True’) 

1243  end  {descent  heading  known} 
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1244  else 

1245  begin  {descent  heading  unknown} 

1246  write ( AeroDat , ' Descent  or  bailout  heading  =  1 ) ; 

1247  writeln (fleroDat , '  Unknown' ) 

1246  end;  {descent  heading  unknown} 

1249  if  Descent Rate  >  0  then 

1250  begin 


1251  write(fleroDat, ’Rate  of  descent  =  '); 

1252  writeln(AeroDat,DescentRate:6i0,*  feet  per  winute’ ) ; 

1253  write(fleroDat,'Tiee  of  descent  =  ’); 

1254  writeln(AeroDat,DescentTiwe:6:0,'  einutes’) 

1255  end; 

1256  write<AeroDat,' Average  descent  wind  bearing  s'); 

1257  writeln(AeroDat,BrgGlideUinds!6;0,'  degrees  True'); 

1258  writelAeroDat,’ Average  descent  wind  velocity  (knots)  =  '); 

1259  writeln(AeroDat,GlideUindSpeed:6s0,'  knots’); 

1260  write(AeroDat, 'Aircraft  displacewent  due  to  winds  =  '); 

1261  writeln(AeroDat1UindDisplace«ent:6:l,’  nautical  wiles’); 

1262  write(AeroDat,’Kaxi«uw  glide  bearing  =  '); 

1263  writeln(AeroDat,BrgftaxGlide:6:0,'  degrees  True'); 

1264  write(AeroDat,’Naxiaun  aircraft  glide  =  ’); 

1265  writeln(AeroDat,MaxDistanceGlide:6:l,’  nautical  wiles'); 

1266  if  HaxRadiusGlide  >  0.0  then 

1267  begin  {MaxRadiusGlids)  0  due  to  uncertain  data  inputs} 

1268  write (fleroDat , ' hax i eua  glide  radius  =  '); 

1269  writeln(AeroDat,HaxRadius61ide:6:l,'  nautical  wiles.’) 


1270  end;  {MaxRadiusGlide)  0  due  to  uncertain  data  inputs) 

1271  if  EjectDistance  )  0.0  then 

1272  begin  {aerospace  object  is/are  pi lot (s)  ejecting} 

1273  write (fleroDat, 'Ejection  displacewent  =  ’ ); 

1274  writeln(AeroDat,EjectDistance:6:l,'  nautical  wiles’) 

1275  end;  {aerospace  object  is/are  pilot (s)  ejecting} 

1276  write(AeroDat, 'Aerospace-trajectory  drift  bearing  =  '); 

1277  writeln(AeroDat,TrajectBrg:6:0,’  degrees  True’); 

1278  writelAeroDat,' Aerospace-trajectory  drift  distance  =  '); 

1279  writeln(AeroDat,TrajectDistance:6:l,’  nautical  wiles’); 

1280  if  TrajectRadius  )  0.0  then 

1281  begin  {TrajectRadius  >  0  due  to  uncertain  data  inputs) 

1282  write(AeroDat, 'Aerospace-trajectory  drif.  radius  *  '); 

1283  writeln(AeroDat,TrajectRadius:6;l,’  nautical  wiles.’) 

1284  end  {TrajectRadius  )  0  due  to  uncertain  data  inputs) 

1285  end;  {indicates  procedure  AeroGlide  was  used); 

1286 

1287  if  HethcdDrift  =  'P1  then 

1288  begin  {indicates  parachute(s)  used} 

1289  write(AeroDat,' Bailout/Parachute  opening  altitude  =  '); 

1290  writeln(AeroDat, <ChuteAlt+TerrainHeight!:6:0, '  feet  fSL'); 

1291  if  61ideAltlost  =  0.0  then 

1292  begin  {if  TerrainHeight  not  previously  recorded  via  glide  calculations) 

1293  write (AeroDat, 'Surface  level  or  terrain  height  =  '); 

1294  writeln(AeroDat,TerrainHeight:6:0,’  feet  NSL’) 

1295  end;  (if  TerrainHeight  not  previously  recorded  via  glide  calculations) 


1296  write? Aerc^at t * U'i nd  bsarirg  affecting  para-descent  =  ’); 

1297  writeln(SeroDat,ErgParaDrift  ’  decrees  True’ >5 

1233  write(RercDat,’Wind  velocity  af*ecting  para-descent  =  * ) ; 

1299  writelr.  (ReroDat,  ParaDrift=peed:6:l,’  knots’); 

1300  writetfleroDat, ’Parachute  table  descent  rate  =  ’); 

1301  writeln(fleroDat, RateParaDescent :G:1,’  feet  per  second’); 

1302  write (ReroDat, ’Parachute  drift  table  distance  =  ’); 

1303  writeln(RercDat,DistanceParaDrift:6:l,’  nautical  Biles’); 

1324  if  (SlideRltLost  =  0.0)  and  iEjectDi stance  )  0.0)  then 

1305  begin  < if  EjectDistance  not  previously  recorded) 

1302  write tfleroDat,’  Eject  ion  displacement  =  *); 

1337  writeln(fleroDat,EjectDistarice:6:l,’  nautical  Biles’) 

1333  end;  {if  EjectDistarce  not  previously  recorded) 

1209  write (ReroDat, ’Total  aerospace  drift  bearing  =  ’); 

1310  writeln(ReroDat,7cialBrg:6:8, ’  degrees  True’); 

1311  write(PeroDat,’Total  aerospace  drift  distance  =  ’); 

1312  writelr, (ReroDat, TotalDistance:6:l,’  nautical  miles’); 

1313  if  TotalRadius  )  8.0  then 

1314  begin  {TotalRadius  )  0  due  to  uncertain  data  inputs) 

1315  write (ReroDat, ’Total  aerospace  drift  radius  =  *); 

1326  writeln (ReroDat,  Tota!Radius:6:l,’  nautical  miles’) 

1317  end;  {TotalRadius  )  0  due  to  uncertain  data  inputs) 

1318  write(fleroDat,’Total  time  of  parachute  descent  =  ’); 

1319  writelntfleroDat, TimeParaDescent :6: 1, '  minutes’ ) ; 

1320 

1321  end;  {indicates  parachute(s)  used) 

1322 

1323  writeln (ReroDat,'  ’); 


1324  writeln (ReroDat,’  Wind  Data  Used  To  Calculate  Rbove  Results:'); 

1325  {Write  out  record  of  winds  aloft  used  by  prograa) 

1326  for  I  :=  1  to  N  do 

1327  begin  {I  =  1  to  number  of  winds/altitudes  used  by  program) 

1328  write(ReroDat,I:2,’.  Winds  at  ’.Windsflloftll, 11:6:0,'  feet:  ’ >; 

1329  write(ReroDat,WindsRloftCI, 21:4:0,’  degrees  at  ’,Windsflloft CI,31:3:0) 5 

1330  writeln (ReroDat,’  knots') 

1331  end;  -Cl  =  1  to  number  of  winds/altitudes  used  by  program) 

1332 

1333  close (ReroDat) 

1334 

1335  end;  {WriteToDisk) 

1336 

1337  (IHHHHWJHIHHHHHHWWWHHHHHWHHHWIHMHHHHHH) 

1338  {Provides  user  with  program  information,  limitations  on  use  and  license.  ) 

1339 

1340  procedure  Warranty; 

1341 

1342  var  continue  :  char;  {Bogus  read  variable  provides  time  to  read  warranty) 

1343 

1344  begin  {Warranty) 

1345 

1346  write!’  (h«hhhhhhhh(hhhihhhh»*'  )  • 

1347  writeln(’****tM*Hft*MH**of*M****t«m*t*)' ); 


1346 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 
1376 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 


write  C C*  SEARCH  PLANNING  SOFTWARE  • ) ; 

writelnC  (PROGRAM  #1  OF  3)  *)• ) ; 

writeC  (*  TITLE:  AERODRIF.COM  (Aerospace  Drift  ’>; 

writelnC  Algoritha)  •)'); 

writeC (•  VERSION:  1.1  for  CP/M  ») 5 

writelnCOperating  System  *)’); 

writeC (*  DATE  WRITTEN:  September  1984’); 
writelnC  *)'); 

write!’ («  LICQGE:  COPYRIGHT  1984*)? 

writelnC  D.  RICK  DOUGLAS  *>’ >* 

writelnC  hhwhwwhhhhhwhhhwwI1  ) ; 
writeCThe  author  cakes  no  express  or  implied  *); 
writelnCwarranty  of  any  kind  with  regard  to*); 
write (’this  prograa  caterial,  including,  but  '); 
writelni'not  United  to,  the  inplied  warranty  of*); 
write ('fitness  for  a  particular  purpose.  '); 
writelnClhe  author  shall  not  be  liable  for'); 
write (’incidental  or  consequential  damages  '); 
writelnC  in  connection  with  or  arising  out  of'); 
writeC furnishing,  use,  or  performance  of  this  ’); 
writelnC  prograa.  The  reader  MUST  WWE  a  solid'); 
write ('understanding  of  search  and  rescue  ’); 
writeln (’methodology  before  using  this  software  in'); 
write ('caking  decisions  where  huoan  life  is  at  '); 
writelnCrisk.  In  fact,  since  no  aaount  of’); 

writeCtesting  can  uncover  10W  of  prograa  '); 
writelnCerrors,  this  prograa  is  recoaaended  for’); 
writeCtraining  use  only.  Prior  attendance  '); 
writelnCat  the  United  States  Coast  6uard"s'); 
writelnCNational  SAR  School  is  highly-encouraged.'); 
writeln; 

writeC  (•  THIS  SOFTWARE  MAY  BE  FREELY-’); 
writeln  ('DISTRIBUTED  PROVIDED  NO  FEE  «)’); 
writeC (*  IS  CHARGED  AND  THIS’); 

writelnC  COPYRIGHT  NOTICE  IS  RETAINED  *)'); 

writeC  UHWHHHHiHHHHHmmmHw1 ) ; 

IffitelnPaHHHaHWHHHHHHWHHHHHW)1); 

writeln; 

write (’PLEASE  HIT  RETURN  (Once  or  twice,  as  necessary)  TO  CONTINUE’) 
readln(continue) 

end;  {Warranty) 


begin  {main  prograa) 


{initialize  prograa  variables) 

AssignedAlt  :s  -1000.0;  AvgWindFroa  i>  0,0;  BrgGlideUinds  :=  0.0; 
BrgMaxGlide  :=  0.0;  BrgParaDrift  :=  0.0;  ChuteAlt  :=  0.0; 


1400  chute  :=  ’ Q1 ;  descent  :=  ’Q’ ;  DescentHeading  :=  -1.0; 

1491  Descent! i »e  :=  0.8;  DistanceParaDrift  :=  0.0; 

1402  EjectDistance  :=  -1.0;  GlideAltLost  :=  0.0;  GlideRatio  :=  0; 

1483  GlideWindSpeed  :=  0. 0;  IncidentAlt  s=  -1000.0;  LastDateTirae  :=  0.0; 

1404  LastLatitudeKnown  :=  0.0;  LastLongitudeKnown  :=  0.8;  LatNS  :=  '0' ; 

1405  LongEW  :=  ’O’;  N  :=  0;  XaxDistance61ide  :=  0.0;  NaxRadiusGlide  :=  0.0; 

1406  RethodDrift  :=  'Q';  OnePassCoapleted  :=  false;  ParaDriftSpeed  :=  0.0; 

1407  Result  Magnitude  :=  0.0;  TerrainHeight  :=  -1808.0;  TineParaDescent  :=  0.0; 
1406  TotalGrg  :=  0.0;  TotalDistance  :=  0.0;  TotalRadius  :=  0.0; 

1409  TrajectBrg  :=  0.0;  Traject Distance  !=  0.0;  Trajeet Radius  :=  0.0; 

1410  WindDisplacement  :=  0.0; 

1411 

1412  ValidAnswers  :=  [‘YVyVKVn’]:  No  ;=  t’N’,’n’];  Yes  :=  t'Y’,’y’); 

1413  for  I  i=  1  to  20  do  for  J  s=  1  to  3  do  UindsAloftCI,J3  :=  0.0; 

1414  for  I  :=  1  to  £0  do  for  J  :=  1  to  3  do  AeroWindsCI, J]  :*  0.0; 

1415 

1416  Warranty; 

1417  CLRSCR; 

1418  writelnCThis  prograa  calculates  the  initial  surface  position  coordinates’); 

1419  writelnC  (latitude/longitude)  of  a  falling,  gliding,  or  parachuting'); 

1428  writelnC aerospace  object  or  person.  If  these  coordinates  are  all  ready'); 

1421  MritelnC known,  or  the  search  object  did  not  fall  at  least  500  feet,  then’); 

1422  writelnC enter  N  to  the  next  question  and  proceed  with  other  search'); 

1423  writelnC planning  as  outlined  in  the  National  Search  and  Rescue  Manual.'); 

1424  writeln; 

1425  repeat  {until  valid  response) 

1436  write ('Do  you  wish  to  continue  with  this  prograa?  ly/n)  =>  ’); 

1427  readln(continue); 

1426  writeln 

1429  until  (continue  in  ValidAnswers); 

1430  if  (continue  in  Yes)  then 

1431  begin  (prograa  run) 

1432  CLRSCR; 

1433  AeroPosition; 

1434 

1435  repeat  (until  valid  TerrainHeight  response) 

1436  writeln ('Please  enter  the  surface  level  altitude  or  terrain  height'); 

1437  writelnC  (in  feet)  above  or  below  oean  sea  level.  Enter  a  zero  if'); 

1438  writelnCaltitude  equals  sea  level,  or,  enter  a  negative  altitude  if); 

1439  writelnC  below  sea  level  (e.g.  Death  Valley,  California.).’); 

1440  write (’SURFACE  LEVEL/TERRAIN  HEIGHT  =>  ’); 

1441  readln(TerrainHeight); 

1442  writeln 

1443  until  TerrainHeight  )  -1008; 

1444 

1445  repeat  (until  valid  response) 

1446  writeln  (’After  receiving  report  of  the  search  object"s  last  known’); 

1447  writelnCcoordinates  (Iat/long),  did  the  object  fall  or  glide  to  a'); 

1448  writelnC  lower  altitude  before  parachute(s)  opened  or  ground  contact’); 

1449  write!' was  eade?  (y/n)  =>  ’); 

1450  readln(descent); 

1451  writeln 


D-28 


until  (descent  in  ValidAnsuers); 


1452 

1453 

1454  if  (descent  in  Yes)  then  61ideData; 

1455  if  (descent  in  No)  then  ChuteData; 

14% 

1457  {Only  write  transaction  record  to  disk  if  prograe  procedures  fero61ide> 

1458  <or  InputUinds  were  actually  used} 

1459 

1468  {If  prograe  used,  then  create  record  of  inputs  and  results. > 

1461  if  (MethodDrift  =  »P»)  or  (MethodDrift  =  'GM  or  (MethodDrift  =  'Bn  then 

1462  UriteToDisk; 

1463  writelnj 

1464  writeln(’A  record  of  significant  input  and  output  data  used  during  this') 

1465  writelnl* prograe  run  is  stored  in  an  external  file  naeed  'AERODftTAV); 

1466  writelnOIf  you  desire  to  keep  this  record  percanently,  please  renaee' ){ 

1467  eritelnCfile  AERODATA  before  running  this  prograe  again!’) 

1468 

1469  end  {prograe  run} 

1478  end.  {eain  prograe} 
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SEARCH  PLACING  SOFTWARE  (PROGRAM  12  OF  3> 


TITLE:  SURF0RIF.COM  (Surface  Drift  Algorithm) 

VERSION:  1.1  for  CP/M  Operating  System 

DATE  WRITTEN:  September  1984 
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DESCRIPTION: 

-  User  asked  for  last  known  position  (coordinates)  and 
date-time-group  of  search  object 

-  User  asked  for  desired  Datum  position  (coordinates) 
and  date-time-group  of  search  object 

-  User  Bust  verify  search  object  affected  by  oceanic 
drift  forces  (object  core  than  20  Biles  off-shore  and 
in  water  deeper  than  180  feet) 

-  User  asked  to  input  reported  surface  winds  in  the 
search  object's  vicinity  for  at  least  the  last  48 
hours 

-  User  Bust  then  input  the  wind  latitude  coefficient 
directions  and  oagnitudes  for  the  object’s  latitude  as 
found  in  the  National  Search  and  Rescue  (SAR)  Manual 

-  Wind  latitude  coefficient  vectors  are  printed  back  to 
the  user  for  verification/correction 

-  User  asked  which  of  the  three  types  of  drift 
uncertainty  found  in  the  National  SAR  Manual  applies, 
then  the  appropriate  inforuation  is  requested 

-  User  is  asked  for  the  sea  current  vector  and  published 
reference  source  it  was  found  in 

-  User  is  asked  for  the  total  observed  water  current,  if 
applicable 

-  User  is  asked  for  the  tidal  current,  if  applicable 

-  Program  calculates  applicable,  resultant  drift  vector 
direction(s)  and  aagnitude(s)  and  creates  an  'audit 
trail'/record  file  of  program  input,  significant 
calculations,  and  output,  named  'SEADATA' 


LICENSE:  COPYRIGHT  1984  D.  RICK  DOUGLAS 

The  author  Bakes  no  express  or  inplied  warranty  of  any 
kind  with  regard  to  this  progran  material,  including,  but 
not  United  to,  the  inplied  warranty  of  fitness  for  a 
particular  purpose.  The  author  shall  not  be  liable  for 
incidental  or  consequential  damages  in  connection  with  or 
arising  out  of  furnishing,  use,  or  performance  of  this 
program.  The  reader  MUST  HAVE  a  solid  understanding  of 
search  and  rescue  methodology  before  using  this  software 
in  Baking  decisions  where  human  life  is  at  risk.  In  fact, 
since  no  amount  of  testing  can  uncover  10W  of  program 
errors,  this  program  is  recommended  for  training  use  only. 
Prior  attendance  at  the  United  States  Coast  Guard’s 
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0852  (•  National  SAR  School  is  highly-encouraged.  •) 

0853  (§  *) 

0054  (*  THIS  SOFTWARE  HAY  BE  FREELY-DISTRIBUTED  ») 

0055  (*  PROVIDED  NO  FEE  IS  CHARSED  AND  #) 

0056  (♦  THIS  COPYRIGHT  NOTICE  IS  RETAINED.  *) 

0057  (, - t) 

0058  («  LANGUAGE:  PASCAL  •) 

8059  (*  USED  :  Borland  International,  TURBO. PAS,  Version  2.0  *) 

0060  <«  -  «) 

0061  (*  NODULES  CALLED  (Sequentially  listed! ;  (OPT)  =  'Optional*:  «) 

8062  (t  «) 

0863  (»  SurfacePosition  #) 

0864  (*  VerifyDTG  (Last  Known  Position)  *) 

0065  (*  VerifyDTG  (Datua  Position)  *) 

8866  (»  WindPeriods  *) 

0867  (*  PericdTises  *) 

0868  (*  DaysInMonth  (OPT)  «) 

0069  (*  DaysInMonth  (OPT)  *) 

0070  (*  DaysInMonth  (OPT)  •) 

0071  (*  InputSeaUinds  *) 

0072  (•  WindLatCoeffs  •) 

0073  (*  VerifyWinds  *) 

0074  (t  UindChart  f) 

0075  (*  WindChart  (OPT)  *) 

0076  <*  UindCurrent  •) 

0877  <#  AddVectors  t) 

8078  <*  AddVectors  (OPT)  t) 

M)79  (t  AvgSurfaceUind  ») 

0080  U  AddVectors  t) 

0081  (*  LeewayDrift  t) 

0082  {*  DriftDirUncertain  (OPT)  *) 

0083  (*  SeaCurrent  *) 

0884  (*  Datua  «) 

0085  <*  UriteToDisk  t) 

0086  (*  RecordCurrents  *) 

0087  (t  *) 

0089 

0090 

0091 

0892  prograa  SurfaceDrift (input, output); 

8093 

0094  const  aax  =  4;  {Maxiaua  nuaber  of  wind  current  periods  allowed) 

M95  radians  *  57.2957795;  {Standard  radian  conversion  factor) 

0096 

0097  var  continue,  {Determines  if  this  prograa  should  be  used) 

0098  LatNS,  {Indicates  whether  latitude  is  North  or  South) 

0099  LongEW  :  char;  {Indicates  whether  longitude  is  East  or  West) 

0100 

0101  DatuaNonth,  {Month  object  will  be  at  desired  Datua  position) 

0102  DatuaYear,  {Year  object  will  be  at  desired  Datua  position) 

0103  Days,  {Nuaber  of  days  in  specified  aonth) 
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0184 

0115 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

8136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 


DegreesLat,  Hat  known  position  latitude  in  degrees! 

I,  J,K,  {Used  as  counters! 

N,  {Tracks  number  of  48-hr  wind  current  periods  used! 

HoursElapsed,  {Datua  ainus  last  known  position  tiae  in  hours! 

Last Day,  {Day  object  at  last  known  position! 

LastHour,  {Hour  object  at  last  known  position! 

LastMonth,  {Month  object  at  last  known  position! 

LastYear,  {Year  object  at  last  known  position! 

LeewayMethod,  {Indicates  type  of  leeway  drift  uncertainty  chosen! 

MaxDivergence,  {Maxima  divergence  from  downwind  in  degrees! 

MaxHoursDrift,  {Maxiaua  nuabcr  of  hours  search  object  drifted! 

MinHoursDrift,  {Miniaua  nuaber  of  hours  search  object  drifted! 

SourceSeaCurr  .’integer;  {Source  used  to  determine  sea  current  vector! 

AvgWindFroo,  {Average  surface  wind  direction  froa  (in  degrees)! 

AvgUindTo,  {AvgWindFron  plus-or-ainus  180! 

DatuaDateTine,  {Day/Tiee  object  will  be  at  desired  Datua  position! 

DirSeaCurrent,  {Sea  current  vector  direction! 

DirSurfUind,  {Average  surface  wind  direction! 

DirTidalCurrent,  {User  input  Tidal  Current  direction! 

DirTotalCurrent,  {Total  water  current  vector  direction! 

DaaxDir,  {Maxiaua  combined  surface  drift  direction! 

DainDir,  {Miniaua  coabined  surface  drift  direction! 

DaaxDistance,  {Maxiaua  coabined  surface  drift  distance! 

DainDistarce,  {Miniaua  coabined  surface  drift  distance! 

LastDateTine,  {Tiae  object  was  at  last  known  position! 

LastLatitudeKnown,  {Last  known  latitude  of  aerospace  object! 
LastLongitudeKnown,  {Last  known  longitude  of  aerospace  object! 
LeewayBrg,  {Average  surface  wind  bearing! 

HaxDirWindCurrent,  {Total  ocean  surface  current  bearing  due  to  wind! 

MinDirHindCurrent,  {Total  ocean  surface  current  bearing  due  to  wind! 

MaxLeeBrg,  (Average  surface  wind  bearing  ainus  MaxDivergence! 

MinLeeBrg,  {Average  surface  wind  bearing  plus  MaxDivergence! 

MaxLeeDistance,  {Maxiaua  leeway  drift  distance  of  search  object! 

MinLeeDistance,  {Miniaua  leeway  drift  distance  of  search  object! 

MaxLeeSpeed,  {Maxiaua  leeway  drift  rate  of  search  object! 

MinLeeSpeed,  {Miniaua  leeway  drift  rate  of  search  object! 

MaxSeaCurrDist,  (Maxiaua  sea  current  drift  distance! 

MinSeaCurrDist,  {Miniaua  sea  current  drift  distance! 

MaxTideDistance,  {User  input  Tidal  Current  aaxiaua  distance! 

MinTideDistance,  (User  input  Tidal  Current  ainiaua  distance! 

MaxTotCurrDist,  (Total  water  current  vector  aaxiaua  distance! 

MinTotCurrDist,  (Total  water  current  vector  ainiaua  distance! 

MaxMindCurrDist,  (Total  ocean  surface  current  distance  due  to  wind! 

MinWindCurrOist,  (Total  ocean  surface  current  distance  due  to  wind! 

ResultMagnitude,  {Resultant  distance  coeputed  froa  vector  addition! 

SeaCurrSpeed,  (Sea  current  vector  velocity! 

SurfWndMagnitude,  (Average  surface  wind  speed  tiaes  affected  hours! 

SurfWndSpeed,  (Average  surface  wind  in  nautical  ailes  per  hour! 

TotCurrSpeed  :  real;  (Total  water  current  vector  velocity! 


No, 


{’M,n’  *  Legal  *No*  characters! 


0156  Yes,  {'Y,y’  =  Legal  *Yes*  characters! 

0157  Validflnsners  :  set  of  char;  {'Y,y,N,n*  =  Legal  *Yes‘  and  *No*  characters! 

0158 

0159  SeaDat  :  text;  {External  record  file  of  progran  input/output  data! 

0160 

0161  {Indicates  the  1  to  6  hours  of  wind  effect  in  each  48-hour  period  of  ! 

0162  {ocean  surface  current.  > 

0163 

0164  HoursUindEffect  :  array [1.. max]  of  integer; 

0165 

0166 

0167  {Indicates  the  velocity  contributions  of  each  6-hour  wind  block  tines  ! 

0168  {the  minder  of  hours  of  Hind  effect  in  that  block  to  calculate  average  ! 

8169  {surface  Hind.  1 

0170 

0171  VelocityCoaponent  :  array Cl.. maxi  of  real; 

0172 

0173 

0174  {Indicates  the  Hind  current  latitude  coefficient  vector  directions  1 

0175  {(position  1)  and  eagnitudes  (position  2)  free  the  National  SfiR  Manual. ! 

0176 

0177  WindCoeffs  :  array Cl.. 8,1.. 33  of  real; 

0178 

0179 

0180  {Hind  vectors  affecting  ocean  surface  current  over  tine:  First  position! 

0181  {indicates  the  number  of  48-hour  periods;  Second  position  indicates  > 

0182  {Hhere  the  reported,  6-hour  Hind  vector  fits  aoongst  the  8  tines  given  ! 

0183  {in  each  48-hour  period;  and,  Third  position  indicates  the  days  (1),  ! 


0184  {hours  (2),  directions  (31,  and  velocities  (4)  of  each  6-hour  Hind  T 

8185  {vector,  as  nell  as  the  sun  of  these  vectors  and  the  Hind  Current  > 

0186  {Latitude  Coefficient  vectors  directions  (51  and  eagnitudes  (6>.  > 

0187 

0188  UindsOverTine  :  array[l..nax, 1..8, 1..6]  of  real; 

8189 

0190  {The  total  contribution  (sun)  of  WindsOverTice  and  WindCoeffs  vector  } 

0191  {directions  and  velocities  for  the  eight  intervals  per  period.  ! 

0192 

0193  PeriodVectors  :  arrayCl..nax,1..3]  of  real; 

0194 


0196  {Writes  out  a  specified  number  of  blank  lines;  can  be  used  to  clear  screen.  ! 
0197 

0198  procedure  Hritelns  (lines  :  integer); 

0199 

0280  var  count  :  integer; 

8201 

0202  begin 
0283  count  :-  0; 

0204  nhile  lines  )  count  do 

8205  begin 

0206  nriteln; 

0207  count  :=  count  +  1 


end 

end; 


{Verifies  legitimate  date/tiee/group  data  input.} 
procedure  VerifyDTB  (var  DateTiee  :  real); 


var  Teep, 
TeepDate, 
TenpHour, 


{Used  as  a  temporary  coeputation  variable) 
{Used  as  teeporary  date  variable) 

{Used  as  teeporary  hour  variable) 


TenpMinutes  :  real;  {Used  as  teeporary  minutes  variable) 


begin  {VerifyDTS) 

repeat  {until  correct  date/tie 


format  input) 


{Verify  -the  day  is  between  1  and  31) 

TeepDate  :=  trunc(  DateTine/10000  ); 
if  (TeepDate  <  1)  or  (TeapDate  >  31)  then 
begin  {TeepDate  not  between  1  and  31) 
writeln; 

writelnCYou  have  incorrectly  entered  the  date. 
writeC Re-enter  2  DT6=>  »); 
readln(DateTiee) 

end;  {TeepDate  not  between  1  and  31) 


Try  again!'); 


{Verify  the  hour  is  between  0000  and  2480) 

Teep  :=  (DateTine/10000  -  <trunc(DateTiee/10000>>  )  *  100; 

TenpHour  :=  trunc(Tenp); 
if  (TenpHour  (  0)  or  (TeepHour  >  23)  then 
begin  {TenpHour  not  between  0  and  23) 
writeln; 

writelni’You  have  incorrectly  entered  the  hour.  Try  again!’); 

writeC  Re-enter  Z  DTS=>  '); 

readln(DateTine) 

end;  {TenpHour  not  between  0  and  23) 

{Verify  there  are  no  einutes,  e.  g.  einutes  =  0) 

Teep  :=  (DateTiee/100  -  <trunc(DateTiee/100))  )  *  100; 

TenpHinutes  :=  trunc(Teep); 
if  TenpNinuies  0  0  then 
begin  {TeepHinutes  not  0) 
writeln; 

writelnCPlease  enter  the  date/tine  to  the  nearest  hour.  Try  again!'); 
write ('Re-enter  l  DTS=>  '); 
readln(DateTine) 
end  {Tenfflinutes  not  0) 

until  (TeepDate  )*  1)  and  (TeepDate  (=  31)  and  (TenpHour  )»  0)  and 
(TeepHov  <=  23)  and  (TeepHinutes  *  0) 


{VerifyDTB) 
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0262  {Asks  user  for  the  last  known  and  the  desired  Datum  tiees  and  positions  of  a  > 

8263  {search  object  on  the  ocean's  surface.  > 

8264 

8265  procedure  SurfacePosition; 

0266 

0267  var  Teep  :  real;  {Used  as  a  temporary  computation  variable) 

8268 

8269  begin  {SurfacePosition) 

8278 

0271  writeln; 

0272  repeat  {until  valid  response) 

8273  writelnCPlease  enter  the  nueber  for  the  eonth  the  search  object  Das'); 

0274  writelnC  at  the  last  known  position:'!; 

0275  writeln; 

0276  writelnC  1  =  Jan  4  *  Apr  7  *  Jul  10  *  Oct’); 

0277  writelnC  2  =  Feb  5  *  Hay  8  =  Aug  11=  Nov’); 

0278  writelnC  3  =  Mar  6  =  Jun  9  =  Sep  12  =  Dec’); 

0279  writeln; 

0280  writeCLAST  KNOWN  POSITION  MONTH®)  '); 

0281  readl  n  (Last.lonth ) ; 

0282  if  (LastMonth  (  1)  or  (LastMonth  )  12)  then 

0283  writelnC Incorrect  nueber  entered.  Please  try  again!’); 

8284  writeln 

0285  until  (LastMonth  )=  1)  and  (LastMonth  <=  12); 

8286 

8287  writelnC Please  enter  the  year  the  search  object  was  at  the  last  known'); 
0288  writelnC  position  (e.g.,  1985,  1986,  etc.)’); 

0289  writeCLAST  KNOWN  POSITION  YEAR®)  *); 

0290  readln(LastYear); 

8291  writeln; 

0292 

0293  CLRSCR; 

0294  writelnC  Please  enter  the  day-hour-einute  (TO  DC  NEAREST  HOUR)  the'); 

0295  writeln (’search  object  was  at  the  last  known  position.  Enter  it  in’); 

0296  writelnC Z  DT6  (Zulu  Date-Tine-Sroup)  foraat.  For  example:  9:37  PM,'); 
8297  writeln (’August  4,  should  appear  as  042200  Sreenwich-Mean  Tiae  (Z=0).’); 

0298  writelns(2); 

0299  writelnC If  the  nueber  of  hours  of  search  object  drift  is  uncertain,'); 

0300  writelnCyou  must  run  this  prograa  twice  (as  nentioned  earlier).  On’); 

0301  writelnCthe  first  run  enter  here  the  tiee  the  SHORTER  drift  period'); 

0302  writeln ('started  (LATER  than  the  last  known  position  tiee).  On  the’); 

0383  writeln (’second  run,  or  if  two  runs  are  not  applicable,  enter  here  the'); 

0384  writelnCthe  LKP  tiee  as  requested  above:' ); 

0385  writeCLAST  KNOWN  POSITION  TItC  (Z  DT6>*>  ’); 

0386  readln(LastDateTise); 

8307  Veri fyDTB (LastOateTiee) ; 

0388 

8389  Teep  :=  LastDateTiee/10000; 

0310  Last Day  :=  trunc(Teep); 

0311  LastHour  :=  (round  ((LastOay  -  Teep)  •  -100)  )  •  180;  {nearest  hundred) 


9312 

0313  CLRSCR; 

0314  repeat  (until  valid  latitude) 

0315  writelnCUas  search  object's  last  known  latitude  north  or  south?')} 

0316  writef  (Enter  N  or  S)  Answer*)'); 

0317  readln(LatNS); 

0316  writeln 

0319  until  (LatNS  =  'NM  or  (LatNS  *  ’n»)  or  (LatNS  =  ’S’)  or  (LatNS  =  's'); 

6320  if  (LatNS  *  *N’>  or  (LatNS  *  >»•)  then  LatNS  s*  'N'  else  LatNS  :*  'S'; 

0321 

0322  repeat  (until  valid  latitude) 

0323  writelnCPlease  enter  the  search  objecf's  last  known  latitude  ’); 

0324  writelnC (For  exaaple:  25-Degrees  45-Minutes  13-Seconds  -  25.4513)'); 

0325  wr ite(' LATITUDE  *>  ’); 

0326  readln(LastLatitudeKnown) ; 

0327  if  (LastLatitudeKnown  <  0)  or  (LastLatitudeKnown  )  90)  then 

0328  uritelnC Input  latitude  uust  be  between  0-90.  Try  again!'); 

0329  writeln 

0338  until  (LastLatitudeKnown  )=  09  and  (LastLatitudeKnown  <=  90); 

0331  DegreesLat  :=  trunc(LastLatitudeKnown) ; 

0332 

0333  repeat  (until  valid  longitude) 

0334  writelnCUas  search  objecf’s  last  known  longitude  east  or  west?’); 

0335  writeC  (Enter  E  or  II)  Answer*)'); 

0336  readln(LongEU); 

0337  writeln 

0338  until  (LongEU  *  ’£’)  or  (LongEU  *  ’e'>  or  (LongEU  *  'U'»  or  (LongEU  *  *w’); 

0339  if  (LongEU  *  'EM  or  (LongEU  *  'e')  then  LongEU  I-  'E'  else  LongEU  :=  'IC; 

0340 

0341  repeat  (until  valid  longitude) 

0342  writelnCPlease  enter  the  search  objecf's  last  known  longitude  '); 

0343  writelnC  (For  eweplai  160-Degrees  45-Minutes  13-Seconds  *  160.4513)'); 

0344  wr iteC LONGITUDE  =>  ’); 

0345  readln(lastLongitudeKnown); 

0346  if  (LastLongitudeKnown  <  9)  or  (LastLongitudeKnown  )  180)  then 

9347  writelnC Input  longitude  uust  be  between  0-180.  Try  again!'); 

0348  writeln 

0349  until  (LastLongitudeKnown  )*  0)  and  (LastLongitudeKnown  <*  180); 

0359 

0351  CLRSCR; 

0352  writelnCNow  you  will  be  asked  to  enter  the  year,  eonth,  and  date/tiae  for') 

0353  writelnC  the  desired  Datua  position,  which  MUST  be  later  than  the  tiee  you’) 

0354  writelnC  just  entered  for  the  last  known  position!'); 

0355  writeln; 

0356 

0357  repeat  (until  valid  response) 

0358  writelnCPlease  enter  the  desired  Datuu  eonth:’); 

0359  writeln; 

0360  writelnC  1  *  Jan  4  *  Apr  7  *  Jul  10  *  Oct’); 

0361  writelnC  2  *  Feb  5  *  May  8  *  Aug  11  *  Nov’); 

0362  writelnC  3  =  Mar  6  *  Jun  9  *  Sep  12  *  Dec'); 

0363  writeln; 


8364  writefDATUM  NOKTVN  '); 

8365  readln(Datiurtonth); 

8366  if  (DatuaMonth  (  1)  or  (DatuaMonth  >  12)  then 

8367  writelnO Incorrect  nuaber  entered.  Please  try  again!’); 

8368  writeln 

8369  until  (DatuaMonth  >=  1)  and  (DatuaMonth  (*  12); 

8378 

8371  writeln (’Please  enter  the  desired  Datum  year  (e.gM  1985,  1986,  etc.)'); 
0372  writeC DATUM  VEfl3=>  '); 

0373  readln(DatuaYear); 

8374  writeln; 

8375 

8376  writeln; 

8377  writeC Please  enter  the  desired  Oatua  day-hour-ainute  ’); 

8370  writelnC (TO  THE  NEAREST  HOUR).’); 

8379  uritelnC Enter  it  in  Z  DTB  (Zulu  Date-Tiae-€roup)  format.  For  example:'); 

8388  uriteC 9:37  PM,  August  4,  should  appear  as  042280  '); 

8381  writeln(’6reenwich-Mean  Time  (Z*8).'); 

8382  writePDflTUM  TIME  (Z  DTB>=>  ’); 

8383  readln(DatuaDateTiae); 

8384  Veri fyDTS (DatuaDateTiae) ; 

8385  writeln; 

8386 

8387  Teap  :-  DatuaDateTiae/100ee 
8368 

0389  end;  {SurfacePosition) 

8390 

8392  {6iven  the  last  known  surface  position  tiae,  and  the  hours  elapsed  frow  then  } 

8393  {until  the  desired  Datua  tiae,  this  procedure  determines  the  nuaber  of  > 

0394  {48-hour  wind-current -effect  periods,  and  the  number  of  hours  (1  to  6)  in  > 
8395  {each  period,  required  to  calculate  the  average  ocean  surface  current  caused  > 
0396  <by  the  wind.  > 

8397 

0398  procedure  MindPeriods; 

0399 

0420  var  HoursReoaining  :  integer;  {Elapsed  hours  sinus  those  used  in  calculations) 

8401 

0402  begin  CUindPeriods) 

8483 

8404  {Find  nuaber  of  hours  in  first  48-hour  period) 

8485  if  (LastHour  >=  8088)  and  (LastHour  <  0380)  then 

8486  HoursWindEffectdl  :=  3  -  round (LastHour/100) ; 

8487  if  (LastHour  )=  8380)  and  (LastHour  (  0900)  then 

8488  HoursHindEffectCl)  :=  9  -  round (LastHour/100); 

8489  if  (LastHour  )=  8908)  and  (LastHour  <  1588)  then 

0410  HoursHindEffectCll  :=  15  -  round (LastHour/ 108); 

8411  if  (LastHour  >=  1588)  and  (LastHour  (  2188)  then 
0412  HoursHindEffectCl)  :=  21  -  round (LastHour/180); 

0413  if  LastHour  >-  2108  then 

0414  HoursHindEffectCl]  :=  (24  -  round (LastHour/100)  )  ♦  3; 

8415 


N  :=  1;  {initialize  nuiiber  of  46-hour  periods) 

Hours  Regaining  s=  HoursElapsed  -  HoursHindEffectll); 

if  HoursReeaining  )  9  then 

begin  {More  46-hour  periods  are  required) 

repeat  {until  HoursReeaining  =  0) 

N  :=  N  +  1; 

if  HoursReeaining  >-  6  then 

begin  (More  than  six  hours  reaain  between  current  and  Datue  hour) 
HoursWindEffect IN)  :=  6; 

HoursReeaining  :=  HoursReeaining  -  6 
end  {More  than  six  hours  reeain  between  current  and  Data  hour) 
else 

begin  {One  to  five  hours  reeain  between  current  and  Data  hour) 
HoursWindEffectlN]  :=  HoursReeaining; 

HoursReeaining  ;=  0 

end  -  {One  to  five  hours  reeain  between  current  and  Data  hour) 
until  HoursReeaining  =  9 
end  {Wore  46-hour  periods  are  required) 
end;  TWindPeriods) 


{Given  the  eonth,  determines  the  naber  of  days  in  that  eonth,  including  a 
{check  to  see  if  that  eonth  is  a  leap-year-February  with  29  days. 


procedure  OaysInNonth  (TeepMonth  :  integer); 


var  LeapYearCheck,  {If  zero,  specified  year  is  a  leap  year) 

TeapYearDiv  i  real;  {Result  of  specified  year  divided  by  4) 


begin  {DaysInMonth) 

if  TeepMonth  =  2  {February)  then 
begin  {Leap  year  check) 

TeapYearDiv  :=  LastYear/4; 

LeapYearCheck  :=  TeapYearDiv  -  trunc (TeapYearDiv); 
if  LeapYearCheck  =  0  then  TeapMonth  :=  13  {Leap  year  February) 
end;  {Leap  year  check) 


case  TeapMonth  of 


9455 

1 

i  Days  := 

31; 

9456 

2 

:  Days  t* 

26; 

9457 

3 

:  Days 

31, 

9456 

4 

>  Days  :* 

39; 

9459 

S 

:  Days  :■ 

31, 

9469 

6 

t  Days  :* 

39; 

9461 

7 

t  Days  !* 

31, 

9462 

6 

:  Days  r* 

31; 

9463 

9 

i  Days  s* 

39, 

9464 

19 

i  Days  :* 

31, 

9465 

11 

t  Days  t* 

39, 

9466 

12 

f  Days  t* 

31, 

9467 

13 

i  Days  :» 

29 

end  {case  of  nuaber  of  days  in  specified  aonth) 
end;  {DaysInHonth) 


{Deteraines  the  day  and  hour  for  which  wind  directions  and  velocities  are  } 
{required  in  the  eight  intervals  of  each  period  to  calculate  each  period's  > 
{ocean  surface  wind  current  coaponent  vector.  > 


procedure  PeriodTiaes; 

var  !,J,  {Used  as  counters) 

MonthBefore  :  integer;  {The  aonth  before  the  last  known  position  aonth) 

begin  {PeriodTiaes) 

{Find  day  and  tiae  for  period  #1,  interval  #1) 

HindsOverTiaetl,  1, 1)  :=  LastDay;  {initialize  at  last  known  position  day) 
if  LastHour  *  NN  {aidnight)  then  HindsOverTiaetl,  1,21  :=  0080; 
if  (LastHour  )=  0109)  and  (LastHour  <=  0600)  then 

HindsOverTiaetl, 1,21  :=  0600 
if  (LastHour  )=  0700)  and  (LastHour  <=  1200)  then 

HindsOverTiaetl, 1,2)  :«  1200 
if  (LastHour  >=  1300)  and  (LastHour  («  1B00)  then 

HindsOverTiaetl, 1,21  :•  1800 


if  (LastHour  )-  1900)  and  (LastHour  (  2400)  then 
{Find  next  day  and  start  with  tiae  s  0000) 
begin  {LastHour  *  7-11  P.N.) 

Dayslnflonth (Last tenth) ; 
if  LastDay  (  Days  then 

begin  {Last  known  position-day  is  NOT  the  last  day  of  the  aonth) 
HindsOverTiaetl, 1,1)  :*  LastDay  *  1; 

HindsOverTiaetl, 1,2)  0000 

end  {Last  known  position-day  is  NOT  the  last  day  of  the  aonth) 
else 

begin  {Last  known  position-day  is  the  last  day  of  the  aonth) 
HindsOverTiaetl,  1,1)  :=  1; 

HindsOverTiaetl, 1,2)  :=  0000 

end  {Last  known  position-day  is  the  last  day  of  the  aonth) 
end;  {LastHour  =  7-11  P.N.) 

for  J  s-  2  to  8  do 

begin  {Find  days/tiaes  of  reaaining  7,  6-hr  intervals  in  the  48-hr-period) 

if  HindsOverTiaetl, J-l, 2)  )  0000  {not  equal  to  aidnight)  then 
begin  {this  period’s  previous  tiae  =  6  P.N.  or  P.N.  or  12  P.N.) 


{Next  interval's  date  equals  the  saae  as  the  previous  interval’s  date) 
UindsQverTiaetl,J,l]  t=  HindsOverTiaetl, J-l, 1); 


{Next  interval’s  hour  equals  last  interval’s  hour  ainus  six  hours) 


0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0568 

0569 

0570 

0571 


WindsOverTiaeCl, J, 23  :=  WindsOverTiaeCl, J-l, 23  -  06OT 

end  (this  period's  previous  tiee  =  6  ft.fl  or  P.M.  or  12  P.M.) 
else 

begin  {this  period’s  previous  tine  =  aidnight) 

if  WindsOverTiaeCl, J-l,  13  )  1  then  {Day  of  nonth  is  2nd  through  last! 
begin  {Set  period’s  interval  tiee  to  1880  of  previous  day) 
UindsQverTineCl, J, 11  :=  WindsOverTiaeCl, J-1,11  -  1; 
WindsOverTiaeCl, J,  23  :=  1800 

end  {Set  period's  interval  time  to  1800  of  previous  day) 
else  {First  day  of  nonth) 

begin  {Deteraine  previous  nonth' s  last  day  and  set  at  6  P.M.) 
if  LastMonth  )  1  then  MonthBefore  :=  LastMonth  -  1 
else  MonthBefore  :=  12; 

DaysInKonth (MonthBefore) ; 

WindsOverTiaeCl, J, 11  i=  Days; 

WindsOverTiaeCl, Jt2)  :=  1880 

end  {Deteraine  previous  nonth' s  last  day  and  set  at  6  P.M.) 
end  {this  period’s  previous  tine  =  aidnight) 
end;  {Find  days/tines  of  renaining  7,  6-hr  intervals  in  the  48-hr-period) 

if  N  >  1  then 

begin  {More  than  one  period) 

I  :=  1;  {initialize) 

repeat  {until  I  =  N) 

I  i-  I  ♦  1{ 

{Find  days  and  tines  of  intervals  in  each  period) 

WindsOverTiaeCl,  1, 13  :=  WindsOverTiBeCI-1,1,13;  {initialize) 
if  WindsOverTioeCI-1,1,23  =  0080  then  WindsOverTiaeCl,  1,23  :=  0600; 
if  UindsOverTinetI-1, 1,21  =  8680  then  WindsOverTiaeCl, 1,21  :=  1200; 
if  WindsGverTineCI-1, 1,23  =  1280  then  WindsOverTiaeCl, 1,2)  :r  1808; 
if  WindsOverTiaeCI-1,1,23  *  1800  then 
begin  (Find  next  day  and  start  aith  0000) 

DaysInKonth (LastMonth ) ; 

{if  not  last  day  of  nonth,  add  a  day) 
if  WindsOverTi«eCI-l,  1, 1]  (  Days  then 

WindsOverTiaeCl,  1,13  :=  WindsOverTiaeCI-1,1,13  +  l 

{if  last  day  of  nonth,  set  to  first  day  (of  next  nonth) ) 
else  WindsOverTiaeCl,  1,13  :=  1; 

WindsOverTiaeCl,  1,23  :=  0800 
end;  {Find  next  day  and  start  aith  8808) 

for  J  is  2  to  8  do 

begin  {fill  in  days  and  tines  of  each  period’s  other  seven  intervals) 
WindsOverTiaeCl, J, 13  :=  WindsOverTiaetI-l,J-l,l); 

WindsOverTiaeCl, J, 23  ;=  WindsOverTiaeCI-1, J-1,23 
end  {fill  in  days  and  tines  of  each  period’s  other  seven  intervals) 
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8572 

8573 

8574 

8575 

8576 

8577 
0578 
1579 
8568 
8581 
0582 
8583 
0584 

8585 

8586 
0587 

8588 

8589 

8590 

8591 
0592 
8593 
0594 

8595 

8596 

8597 
0598 
8599 
8680 
8601 
8682 

8683 

8684 
0685 
0606 
0687 
0608 
8609 
0610 
0611 
0612 
0613 
0614 
0615 
0616 

8617 

8618 
0619 
8620 
8621 
8622 
8623 


until  I  =  N 

end  {fare  then  one  period) 
end;  (PeriodTines) 


(Queries  user  for  ocean  surface  Mind  directions  and  velocities.  > 

procedure  InputSeaUinds; 

var  J  :  integer;  (Used  as  a  counter) 

begin  (InputSeaUinds) 

CLRSCRj 

for  J  :=  8  downto  1  do 

begin  (Enter  individual  ocean  surface  wind  vectors) 

write (’Please  enter  the  ocean  surface  wind  direction  and 
if  UindsOverTinell,  J,  11  (  10  then 

writeOvelocity  at  0',KindsOverTine[l,J,  13:1:0) 
else  write!’ velocity  at  ’, UindsOverTinell, J,  11:2:0); 
if  UindsOverTinell,.!, 23  =  0000  then 

wr iteln (’ 000’ ,  UindsOverTinell, J, 2) : 1 :0, '  Z : ' ) 
else  if  Winds0verTi«eCl,J,2J  =  0680  then 
writeln(’0',  UindsOverTinell,,!, 23 :3:0,'Z:') 
else  writeln(HindsOverTineCl, J,23 :4:0,'  Z:’ ) ; 

repeat  (until  degrees  =  0  to  360) 
writel’UIND  DIRECTION  =  ’); 
readln(UindsOverTi«e(l,  J,  33) 

until  (UindsOverTineCl,J,33  )=  0)  and  (UindsOverTinell, J, 33  (=  360); 

repeat  (until  velocity  =  8  to  99) 
write('UIM)  VELOCITY  =  ’); 
readlnfUindsOverTinetl,  J,43); 
writeln 

until  (UindsOverTinell, J, 43  >=  0)  and  (UindsOverTinell, J, 43  (=  99) 
end;  (Enter  individual  ocean  surface  wind  vectors) 

if  N  >  1  then  (Checks  for  wore  than  one  48-hour  wind  period) 
begin  (eore  than  one  period) 

I  :=  1; 

(Input  wind  vectors  fron  last  interval  in  each  period) 
repeat  (until  I  =  N) 

I  :*  I  ♦  1; 

writeCPlease  enter  the  ocean  surface  wind  direction  and  '); 
writeCvelocity  at  ’,UindsOverTiaeli,  1,13:2:0); 
if  UindsOverTinell, 1,23  =  0080  then 

writelnl’008', UindsOverTinell, 1,23:1:0, ’Z;') 
else  if  UindsOverTinell,  1,2]  =  8600  then 
writelnP  0’  ,UindsOverT  ineCl,  1, 23 :3:0, '  Z: ' ) 
else  writelnlWindsOverTineCI, 1,23 :4:0, ’Z:’ ) ; 


repeat  (until  degrees  *  0  to  360} 
writel’HIND  DIRECTION  =  ’); 
readln(HindsQverTime[I,l,3]) 
until  (HindsQverTiee[I,l,3]  >=  0)  and 
(HindsOverTiweCI, 1,3]  <=  360); 

repeat  (until  velocity  =  0  to  99) 
write (’HIND  VELOCITY  =  ’); 
readln(WindsOverTiae(1, 1,4]); 
writeln 

until  (Hinds0verTi»e[I,l,4]  )=  0)  and 
(HindsOverTimeCI,  1,4]  (=  99); 

for  J  :*  2  to  8  do 

begin  (fill  in  wind  vectors  of  each  period's  last  7  intervals) 
HindsOverTi«eCI,J,3]  :=  HindsOverTiwelI-1, J-1,33; 

■  HindsOverTimeCI, J, 4]  :=  HindsOverTimeCI-1, J-1,4] 
end  (fill  in  wind  vectors  of  each  period’s  last  7  intervals) 
until  I  =  N 

end  (wore  than  one  period) 

(InputSeaHinds) 


(Prints  keyboard-input  wind  coefficient  directions  and  velocities  on  the) 
(video  screen  for  user  verification.) 

procedure  WindChart; 

v;r  I  :  integer;  (Used  as  a  counter) 

begin  (HindChart) 

writeCUind  Current  Latitude  Coefficients  for  ' ,DegreesLat: 2, '-degrees  ’); 
if  LatNS  =  ’ N’  then  writelnt’North  are:')  else  writelnC South  are:'); 
writeln; 

for  I  :=  1  to  8  do 

begin  (for  I  =  1  to  number  of  individual  wind  vectors) 

writer  ’,1:1,’.  Period  #’,  1:1,’  ’,HindCoeffstI,l):3:0); 
writelnC  /  ’,HindCoeffstI, 21:4:3) 
end;  (for  I  =  1  to  number  of  individual  wind  vectors) 

writeln 

end;  (HindChart) 


f  a  am  a  a  M  m«« 

\  wTf  f  f  fTiwTfTfTTfTtTfTTTf  tTTmfTTTtTfTTTTTITrf  TfTTfT»TTT1rTTTTW»T¥f  TT¥TTT¥TTT  / 

(Allows  user  to  change  ocean  surface  wind  directions  and  velocities  entered  ) 
(in  procedure  InputSeaHinds.) 

procedure  Veri fyHinds; 

var  HindCheck  :  char;  (Used  to  verify  input  wind  data) 

J  :  integer;  (Used  as  a  counter) 


0676  UindError  :  integer;  {Used  to  indicate  nhich  input  wind  data  is  in  error) 
0677 

0678  begin  {VerifyWinds) 

0679  UindCheck  :=  'V ;  UindError  :=  -1;  {initialize) 

0680 

0681  {Verify  input  Mind  directions  and  velocities.) 

0682  WindChart;  {Prints  current  Mind  data  on  video  screen) 

0683 

0684  repeat  {until  UindCheck  =  valid  response) 

0685  Mriteln; 

0686  MritelnOftre  these  altitudes,  Mind  directions,  and  Mind'); 

0687  NriteP velocities  all  correct?  (y/n)  ’); 

0688  read In (UindCheck) ; 

0689  Nriteln 

0690  until  (UindCheck  in  Validfinsners) ; 

0691 

0692  Nhile  (UindCheck  in  No)  do 
0693  begin  {nhile  UindCheck  =  NO) 

0694  repeat  {until  UindError  *  0  to  20) 

0695  MritelnPUhich  line  is  in  error?*); 

0696  nriteC Enter  nusber,  or  zero  for  none)  =)  '); 

0697  readln(UindError); 

0698  Nriteln 

0699  until  (UindError  >=  0.0)  and  (UindError  (  21.0); 

0700 

0701  if  UindError  >  0.0  then 

0702  begin  {if  an  input  line  is  identified  as  being  in  error) 

0703  HriteCPlease  enter  altitude,  Hind  direction  '); 

0704  MritelnCand  velocity  to  replaces’); 

0705  Nri te(WindCoeffs[WindError, 13 s4:0,’  '); 

0706  Nrite(UindCoeffstUindError,  23 :4:0> ; 

0707  Mritel*  'jNindCoeffsCWindError, 33:4:0,'  =>  '); 

0708  for  J  :=  1  to  2  do  read (HindCoeffs [UindError,  J3); 

0709  CLRSCR 

0710  end;  {if  an  input  line  is  identified  as  being  in  error) 

0711 

0712  UindChart;  {Prints  current  Mind  data  on  video  screen) 

0713 

0714  nriteln; 

0715  repeat  {until  valid  UindCheck  response) 

0716  MriteCflre  all  other  lines  correct?  (y/n)  '); 

0717  readln (UindCheck); 

0718  nriteln 

0719  until  (UindCheck  in  ValidftnsMers) 

8720 

0721  end;  {Nhile  UindCheck  -  NO) 

0722  CLRSCR 

0723  end;  {VerifyWinds) 

0724 

0725  (WWHIWHWHWWHWHfWHWHWIWHWHHWWHHHWWH) 
0726  {When  given  X  and  Ycooponents  this  procedure  calculates  resultant  vector  ) 
0727  {bearing  (ftvgUindFroa)  and  aagnitude  (ResultNagnitude).  ) 
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0728 

0729  procedure  AddVectors  (var  Xcoaponent,  Ycoaponent  :  real); 

073« 

0731  var  Teapflngle  :  real;  {Teaporary  calculation  variable) 

0732 

0733  begin  {AddVectors) 

0734 

0735  {Find  resultant  angle  (in  degrees)  uncorrected  for  coapass  position.) 

0736  Teapflngle  :=  arct an (Xcoaponent /Ycoaponent)  *  radians; 

0737 

0738  {Find  bearing  resulting  froa  Teapflngle  corrected  for  coapass  position.) 

0739  if  (Xcoa portent  )  0)  and  (Ycoctporent  )  0)  then  ftvgWindFroa  :=  Tespftngle; 

0740  if  ((Xcoaponent  )  0)  and  (Ycoaponent  <  0))  or 
0741  ((Xcoaponent  (  0)  and  (Ycoaponent  (  0))  then 

0742  if  (Teapflngle  +  180)  )  360  then 

0743  flvgWindFroa  :=  Teapflngle  -  180 

0744  else  flvgWindFroa  :=  TewpAngle  ♦  180; 

0745  if  (Xcoaponent  <  0)  and  (Ycoaponent  )  0)  then 
0746  if  (Teapftngle  ♦  360)  )  360  then 

0747  flvgWindFroa  !=  Teapflngle  -  360 

0748  else  flvgWindFroa  :=  Teapftngle  +  360; 

0749 

0750  {Convert  flvgWindFroa  to  flvgWindTo  bearing. ) 

0751  if  (flvgWindFroa  +  180)  )  360  then 

0752  RvgWindTo  s=  flvgWindFroa  -  180 

0753  else  flvgWindTo  :=  flvgWindFroa  +  180; 

0754 

0755  {Resultant  bearing  nagnitude  is  the  square  root  of  the  sua  of) 

0756  {  the  squared  coaponents. ) 

0757  ResultMagnitude  !=  sqrt (Xcoaponent  »  Xcoaponent  ♦  Ycoaponent  t  Ycoaponent); 
0758 

0759  uritelnC  Xcoaponent  =  Xcoaponent !5:3); 

0760  aritelnCYcoaponent  =  ', Ycoaponent i5;3); 

0761  uriteln 

0762  end;  {ftddVectors) 

0763 

0764  {WHHHHHHHHHHHHHHmHIHHJHHHHHHMHHHHHHIHWH) 
0765  {Queries  user  for  Wind  Latitude  Coefficient  Vector  directions  and  velocities  ) 
0766  {froa  National  SftR  Manual  tables.  ) 

0767 

0768  procedure  UindLatCoeffs; 

0769 

0778  var  I  s  integer;  {Used  as  a  counter) 

0771 

0772  begin  {Windt.atCoeffs) 

0773  if  Degreeslat  >=  5  then 

0774  begin  {Last  known  position's  latitude  >=  5  degrees) 

0775  CLRSCR; 

0776  writeORefer  to  the  latitude  coefficient-vectors  table  for  the  '); 

0777  if  LatNS  =  'N'  then  writelnC Northern' )  else  writeln (' Southern' ) ; 

0778  write!' latitudes  (approxieately  page  ’); 

0779  if  LatNS  =  ' N’  then  writeln(’8-16c!  in  the  National  SftR  Manual.') 


0780  else  writeln('8-16d)  in  the  National  SAR  Manual.’ >; 

0781  writeCFind  the  degrees-latitude  column  nearest  to  ’,DegreesLat:2); 

0782  wr  it  e  ( ' -degrees-' ) ; 

0783  if  LatNS  =  ’N'  then  writelnfNorth.' )  else  t*riteln<’ South. * ) ; 

0784  writePYou  will  now  be  asked  to  enter  the  directions  and  ’); 

0785  writelnCaagnitudes  for'); 

0786  writelnCeach  of  the  eight  periods  appearing  under  that  coluun.’); 

0787  writeln; 

0788 

0783  for  I  :=  1  to  8  do 

0790  begin  {Input  applicable  latitude  coefficient  vectors  for  the  8  periods} 

0791 

0792  repeat  {until  valid  cos pass  direction} 

0793  write  (’PERIOD  *\I:1,’  DIRECTION  = 

0794  readln(WindCoeffs[I,l]) 

0795  until  (HindCoeffsCI,  11  >=0.0)  and  (HindCoeffsCI,  1]  (=  360.8); 

07% 

0797  repeat  {until  valid  cospass  direction} 

0798  writePPERIOD  MAGNITUDE  =  '); 

0799  readln(HindCceffsCl,2]) 

0800  until  (UindCoeffstI,23  >=  8.003)  and 

0881  (HindCoeffsCI, 2]  <=  0.03); 

080 2 

0803  writeln 

0804  end;  {Input  applicable  latitude  coefficient  vectors  for  the  8  periods} 

0805  CIRSCR; 

0806  VerifyUirds 

8807  end  {Last  known  position's  latitude  )=  5  degrees} 

8808 

0889  else 

0810  {If  last  known  position's  latitude  is  less  than  5-degrees,  then  the  eight} 

8811  {Hind  Current  Latitude  Coefficient  directions  remain  at  their  initialized} 

0812  {value  of  zero,  and  their  xagnitudes  are  set  to  one.  This  is  done  to  } 

0813  {ensure  each  periods  overall  wind  current  vector  is  unaffected  until  } 

0814  (later,  when  5%  of  their  velocity  value  will  be  determined  as  the  total  } 

0815  {wind  current  vector  of  all  combined  periods  as  directed  in  the  National  > 

0316  {SflR  Manual,  approximately  pages  8-16b,  8-16c,  and  8-!6d.  } 

0817 

0318  for  I  :=  1  to  8  do  HindCoeffsCI, 23  :=  1 
0819 

0828  end;  {UindLatCoeffs} 

0821 

0823  {Uses  vector  addition  to  calculate  the  resultant  wind  current  vector  } 

0824  {direction  and  Magnitude  for  each  period  and  for  the  sua  of  all  period  } 

0825  {vectors.  } 

0826 

0827  procedure  UindCurrent; 

0928 

0829  var  I, J  :  integer;  {Used  as  counters} 

0830  PrgRads,  {Individual  bearings  converted  to  radians} 

0831  Xco*ponent,  (Horizontal  component  of  individual  vectors} 
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{Vertical  component  of  individual  vectors! 


8832  Ycoaponent  :  real; 

8833 

8834  begin  {UindCurrent! 

0835  for  I  :=  1  to  N  do 
8838  begin  {repeat  calculations  for  each  period} 

0837  Xcoaponent  :=  0.0;  Ycossponent  :=  0.0;  {initialize! 

0838 

0839  for  J  :=  1  to  8  do 

0840  begin  {find  total  contribution  of  WindsOverTiae  and  WindCoeffs! 

0841  MindsGverTine[I,J,5]  :=  WindsCverTicielI,J,33  +  WindCoeffsCJ,ll; 

0842  WindsGverTi«e[I,J,63  :=  WindsGverTiBeII,J,4j  *  WindCoeffsCJ,2]; 

0843  BrgRads  :=  WindsOverTiireCI,  J,51  /  radians; 

0844  Xcoaponent  :=  Xcoaponent  +  sin(BrgRads)  ♦  ViindsOvsrT itnell, J, 63 ; 

0845  Ycoaponent  :=  Yccnponent  +  ccs(BrgRads)  *  HindsCverTiceCI, J,63 

0846  end;  {find  total  contribution  of  KindsOver’ice  and  WindCoeffs! 

0847 

0848  writelnCPeriod  I",  1:1); 

0849  ftddVectors (Xcoaponent, Ycoaponent ) ; 

0850  PeriodVectorstl,ll  :=  flvgHindFrom; 

0851  PeriodVectorsCI,2]  :=  ResultMagnitude; 

0852  PeriodVectors[I,31  :=  PeriodVectorsw,23  t  HoursUindEffecttll 

0853  end;  {repeat  calculations  for  each  period! 

0854 

0855  if  N  *  1  then  {Only  one  48-hcur  wind  period! 

0856  begin  {Resultant  wind  current  vector  =  resultant  period  11  vector! 

0857  KaxDirWindCurrent  :=  PeriodVectorsIl,ll; 

0858  MaxWindCurrDist  :=  Period Vectors 13,31 

0859  end  {Resultant  wind  current  vector  =  resultant  period  il  vector! 

0860 

0861  else 

0862  begin  {There  are  aore  than  one  48-hour  wind  periods! 

0863  Xcoaponent  :=  0,0;  Yconponent  ;=  8.0;  {re-initialize! 

0864  for  I  :=  1  to  N  do 

0865  begin  {Find  each  PeriodVector’ s  Xcoaponent  and  Yccnponent! 

0866  BrgRads  :=  PeriodVectorsU,  13  /  radians; 

0867  Xcoaponent  :=  Xcoaponent  +  sin (BrgRads)  *  P3ricdVectorsII,33; 

0868  Ycoaponent  :=  Yconponent  +  cos(BrgRads)  *  PericdVectorstI,3i 

0869  end;  {Find  each  PeriodVector" s  Xcoaponent  and  Ycoaponent! 

0878 

0871  writelnPTotal  Hind  Current:"); 

0872  flddVectors(Xcoi5ponent,  Yconponent) ; 

0873  KaxDirWindCurrent  :=  AvgWindFros; 

0874  MaxWindCurrDist  :=  ResultMagnitude 

0875  end;  {There  are  sore  than  one  48-hour  wind  periods! 

0876 

0877  {if  last  known  position's  latitude  <  5-degrees,  then  only  5<  of  the  total! 

0878  {downwind  drift  distance  applies  as  referenced  above  frcs  the  National  ! 

0879  {SflR  Manual.  } 

0880  if  Degreeslat  <  5  then  NaxUindCurrDist  :=  0.0S  *  MaxWindCurrDist; 

0881 

0882  writeCHIT  RETURN  (Once  or  twice,  as  necessary)  TO  CONTINUE’  > ; 

0883  read In (continue); 


CLRSCR; 


8684 
0885 

0886  writeCTotal  Wind  Current  Direction  is  ' , MaxDirWindCurrer.t  :3:0, ’ -decrees 
0887  writelnCfor ’,MaxWindCurrDist:4:2,'  nautical  miles.’); 

0688  writelns<2> ; 

8889  writelnPIf  the  nun  her  of  hours  of  search  object  drift  is  uncertain,  you’ ) ; 
0890  writelnPwust  run  this  program  twice  (as  mentioned  earlier).  On  the  first’) 

0891  writelnPrun,  RECORD  this  Total  Wind  Current  vector  direction  and  distance') 

0892  writelnCfor  input  during  the  second  run.’); 

0893  writeln; 

0894  writelndf  this  is  the  second  run,  please  now  ENTER  the  previously-'); 

0895  writeln ('recorded  Wind  Current  vector  over  the  shorter  drift  period'); 

0896  writeln(’(If  not  applicable,  enter  a  heading  of  361):'); 

0897  repeat  {until  valid  compass  heading  or  36t> 

0898  writeCWIND  CURRENT  DIRECTION  (from  Run  #1)  =)  '); 

0899  readln(WinDirWindCurrent) 

0900  until  (MinOirUindCurrent  )=  0)  and  (MinDirWindCurrent  (=  361); 

0901 

0902  if  MinDirUindCurrent  0  361  then 

0983  repeat  {until  valid  response} 

0904  writeCWIND  CURRENT  DISTANCE  (from  Run  #1)  =>  '); 

0905  readln(NinWindCurrDist) 

0986  until  HinWindCurrDist  >*  0 

0907 

0908  end;  {WindCurrent) 

0909 

0910  (HHHtHHitHWHHHWHMHHHWIHHWWHHItlHimHinHIHH} 
0911  {Determines  the  average  surface  (leeway)  wind  blowing  on  the  search  object’s  > 
0912  {exposed  area  above  the  ocean's  surface.  > 

0913 

0914  procedure  AvgSurfaceWind; 

8915 

0916  var  I  :  integer;  {Used  as  counter) 

0917  BrgRads,  {Individual  bearings  converted  to  radians) 

0918  Xcooponent,  {Horizontal  component  of  individual  vectors) 

0919  Ycowponent  :  real;  {Vertical  component  of  individual  vectors) 

0920 

0921  begin  {AvgSurfaceWind) 

0922  Xcowponent  :=  0.0;  Ycowponent  :=  8,0;  {re-initial ire) 

0923 

0924  for  I  :=  1  to  N  do 

0925  begin  {Find  each  6-hour  wind  blxk's  {component  and  Ycowponent) 

0926  VelxityCowponenttll  s=  Winds0verTi*eiI,l,4]  *  HoursWindEffectCIl; 

0927  BrgRads  :=  WindsOverTieell,  1,31  /  radians; 

0928  Xcowponent  {component  ♦  sin(BrgRads)  *  VelxityConponentlll ; 

0929  Ycowponent  :=  Ycowponent  +  cos(Br;Rads!  *  Ve  1 x 1 1 yCc »  ponent [ 1 1 

0930  end;  {Find  each  6-hour  wind  blxk's  {component  and  Ycowponent) 

0931 

0932  CLRSCR; 

0933  writeln (’Average  Surface  Wind:’ ) ; 

0934  AddVectors  <  Xcowponent , Ycowponent ) ; 

0935  LeewayBrg  AvgWindTo; 
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0936  DirSurfliind  :=  AvgWindFros; 

0937  SurfWndMagnitude  :=  ResaitMagnitude; 

0938  SurfHndSpeed  :=  SurfKndvagr,itude  /  HoursElapsed; 

0939  write ('Average  Surface  Wind  Direction  '); 

0940  write(DirSurfWind:3:0,’-degrees  True  at  '); 

0941  writeln(SurfKndSpeed:4:2,’  knots.') 5 

0942  writelns(2); 

0943  writeln P If  the  nun her  of  hours  of  search  object  drift  is  uncertain,  you'); 

0944  writelnCuust  run  this  program  twice  (as  mentioned  earlier).  On  the  first’) 

0945  writelnPrun,  RECORD  this  Average  Surface  Kind  vector  direction  and'); 

0946  writelnC speed  for  use  in  calculating  the  tainiisua  leeway  speed  during  the'); 

0947  writelnC  second  program  run.  Then,  .ABORT  this  program  run,  CLEAR  your'); 
0948  writelnC microcomputer"  s  rereory,  and  RERUN  the  entire  program'); 

0949  writelns(6); 

0950  writeCHIT  RETURN  (Cnee  or  twice,  as  necessary)  TO  CONTINUE  ’); 

0951  read In (continue) 

0952 

0953  end;  {AvgSurfaceWind) 

0954 

0955  (iHHmiHHtltHiHIHWUHiHHHHHfHIHHHIHtHHIHHmimHH} 
0956  {Used  by  procedure  Leeway  (if  drift  rate  and  tine  are  known  with  certainty)  > 
0957  <to  calculate  isininua  and  maximum  leeway  drift  direction.  } 

0958 

0959  procedure  DriftDirUncertain; 

0960 

0961  begin  {Directional  Drift  Uncertainty} 

0962 

0963  writelnC  Refer  to  the  Leeway  Speed  6raph  in  the  National  SAR  Manual'); 

0964  writelnC (approximately  pace  8-15).  Please  enter  the  search  object’ 's'); 

0965  writelnC  maximum  expected  degrees-divergence  frosi  the  downwind  vector:’); 
0966  repeat  {until  )  0} 

0967  write  (’MAX  EXPECTED  DIVERGENCE  =>  *); 

0968  read In (MaxDivergence) 

0969  until  (MaxDivergence  )=  0)  and  (MaxDivergence  (=  60); 

0970 

0971  if  (LeewayBrg  -  MaxDivergence)  <  0  then  {adjusts  for  corpass  liaits> 

0972  MinLeeBrg  :=  (LeewayBrg  +  263.0)  -  MaxDivergence 

0973  else  MinLeeBrg  :=  LeewayBrg  -  MaxDivergence; 

0974 

0975  if  (LeewayBrg  +  MaxDivergence)  )  360  then  {adjusts  for  compass  limits) 

0976  MaxLeeBrg  :=  (LeewayBrg  +  MaxDivergence)  -  360.0 

0977  else  MaxLeeBrg  :=  LeewayBrg  +  MaxDivergence; 

0978 

0979  writeln; 

0980  writeln (’Refer  to  the  Leeway  Speed  Formulae  in  the  National  SAR  Manual'); 

0981  writelnC (approximately  page  8-13).  Please  enter  the  leeway  speed  at’) ; 

0982  writelnCwhich  the  search  object  drifts:'); 

0983  repeat  {until  )  0} 

0984  writeCLEEWAV  S=EED  =)  ’); 

0985  readln(MaxLeeSpeed) 

0986  until  MaxLeeSpeed  )  0; 

0987 
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0988  writeln; 

•989  writeln  (’Please  enter  the  nuuber  of  hours  the  search  object  drifted:* ) ; 

0990  repeat  {until  )  0> 

0991  writeC’HQURS  OF  DRIFT  =>  * ) ; 

0992  readln(MaxHoursDrift) 

0993  until  HaxHoursDrift  )  0; 

0994 

0995  Nriteln; 

0998  MinLeeDistance  :=  MaxLeeSpeed  *  MaxHoursDrift; 

0997  MaxLeeDistance  :=  MinLeeDistance 

0998 

0999  end;  {Directional  Drift  Uncertainty) 

1080 

1001  {IHHmWtHHHHHHHHHHHWHHHHHHUWHHHHHIlWWWHWl 

1002  {Calculates  the  total  leeway  drift  direction  and  distance.  ) 

1803 

1004  procedure  LeewayDrift; 

1005 

1006  begin  {LeewayDrift) 

1007 

1008  CLRSCR; 

1009  write(’This  prograa  will  now  calculate  the  LEEWAY  vector,  ’); 

1010  writelni’or,  that  drift  caused’); 

1011  write!’ by  average  surface  winds  pushing  on  the  exposed  ’); 

1012  writelnCarea  of  the  search  object.’); 

1013  writeln!’ There  are  three  leeway  vector  calculation  options:’); 

1014  writel n; 

1015  write <’ <1>  DRIFT  RATE  UNCERTAINTY  -  Used  when  the  search  ’ ) ; 

1016  writelnCobject  is  unknown,’); 

1017  write!’  or,  when  it  is  not  known  whether  the  object  ’); 

1018  writelnChas  deployed  an’); 

1019  writeC  anti-drift  device  (e.g.,  sea  drogue).  All  ’); 

1020  writeln(’drift  is  computed  as’); 

1021  writeln!’  a  wininua  and  oaxinua  distance  downwind;’); 

1022  writeln; 

1023  write!’ (2)  DRIFT  TIfE  UNCERTAINTY  -  Used  if  the  nuwber  ’); 

1024  writeln (’of  hours  the  search’ ); 

1025  write!’  object  has  been  drifting  is  not  known  for  ’); 

1026  writelnl’certain.  All  drift’); 

1027  writeln!’  is  coaputed  as  a  ainiwua  and  aaxiaua  distance  downwind;’); 

1028  writeln; 

1029  writeC  !3>  DIRECTIONAL  DRIFT  UNCERTAINTY  -  Used  if  above  ’); 

1030  writeln!’options  do  not’ ); 

1031  write!’  apply.  However,  drift  is  coaputed  for  a  ’); 

1032  writelnf’divergent  bearing  left’); 

1033  writeln!’  and  right  of  the  downwind  vector.’ ) ; 

1034  writeln; 

1035  writeln!’ Refer  to  the  National  SAR  Manual  for  additional  information,’); 

1036  writeln; 

1037  writeln; 

1038  writeln; 

1039  writeln; 


1040 

1041  repeat  {until  valid  response) 

1042  writeCPLEASE  SELECT  OPTION  II,  #2,  or  13  =>  ’); 

1043  readln (LeewayMethod) 

1044  until  (Leeway  Met  hod  >=  1)  and  (LeewayMethod  <-  3); 

1045  CLRSCR; 

1046 

1047  if  LeewayMethod  =  1  then 

1048  begin  {LeeNayMethod  *  Drift  Rate  Uncertainty) 

1049 

1050  writelnCRefer  to  the  Leeway  Speed  Formulae  in  the  National  SAR  Manual'); 

1051  write (' (approximately  page  8-13).  Please  enter  the  minimum  ') ; 

1052  writelnC leeway  speed'); 

1053  writelnCat  which  the  search  object  drifts  (e. g. ,  sea  drogue  deployed):’) 

1054  repeat  {until  )  8) 

1055  write!' MINIMUM  LEEWAY  SPEED  =>  ’); 

1056  readln(MinLeeSpeed) 

1057  until  MinLeeSpeed  >  0; 

1058 

1059  writeln; 

1060  writelnCNow,  enter  the  maximum  leeway  speed  at  which  the  search  object') 

1061  writelnC  drifts  (e.g.  sea  drogue  NOT  deployed):’); 

1062  repeat  {until  )  0) 

1063  writeCMAXINUM  LEEWAY  SPEED  =>  '); 

1064  readln (NaxLeeSoeed ) 

1065  until  MaxLeeSpeed  >  0; 

1066 

1067  writeln; 

1068  writelnC  Please  enter  the  number  of  hours  the  search  object  drifted:’); 

1069  repeat  {until  )  8) 

1070  writeCHOURS  OF  DRIFT  =>  ’); 

1071  readln(MaxHoursDrift) 

1072  until  NaxHoursDrift  >  0; 

1073 

1074  writeln; 

1075  NaxLeeBrg  :=  LeewayBrg; 

1076  NinLeeDistance  :=  MinLeeSpeed  «  MaxHoursDrift; 

1077  MaxLeeDistance  :=  MaxLeeSpeed  *  MaxHoursDrift 

1078 

1079  end;  {LeewayMethod  =  Drift  Rate  Uncertainty) 

1080 

1081  if  LeewayMethod  =  2  then 

1082  begin  {LeewayMethod  =  Drift  Time  Uncertainty) 

1083 

1084  writeCPlease  enter  the  NINimua  number  of  hours  the  ’); 

1085  writeln!' search  object  drifted:’); 

1086  repeat  {until  )  0) 

1087  write CMINIMU!  HOURS  OF  DRIFT  *)  ’); 

1088  readln(MinHoursDrift) 

1089  until  NinHoursDrift  >  0; 

1090  writeln; 

1091 


1092  writePPlease  enter  the  MAXimua  number  of  hours  the  ’); 

1093  writelnP  search  object  drifted:'); 

1094  repeat  {until  >  0> 

1095  writePNAXIHUN  HOURS  CF  DRIFT  =>  '); 

1096  readin(MaxHoursDrift) 

1097  until  NaxHoursDrift  )  0; 

1098  Mriteln; 

1099 

1100  writelnP  Refer  to  the  Lee  May  Speed  Formulae  in  the  National  SflR  Manual'); 

1101  writelnP (approximately  page  8*13),  Please  enter  the  leeway  speed  at') ; 

1102  writelnPwhich  the  search  object  drifts:'); 

1103  repeat  {until  )  0> 

1104  write  ('MAXIMUM  LEEWAY  SPEED  =>  '); 

1105  readln(MaxLeeSpeed) 

1106  until  NaxLeeSpeed  )  0; 

1107 

1108  Mritelns(2); 

1109  write!' If  the  nunber  of  hours  of  search  object  drift  '); 

1110  writelnP  is  uncertain,  you  Bust’); 

1111  writePrun  this  program  twice  (as  mentioned  '); 

1112  writelnPearlier).  If  this  is  the’); 

1113  writel'second  run,  please  ENTER  the  Leeway  Speed’); 

1114  writelnP  (read  from  the  graph)’); 

1115  writePusing  the  previously-recorded  Average  Surface  Wind  '); 

1116  writelnP  vector  froa  the' ) ; 

1117  writelnPshorter  drift  period:*!; 

1118  repeat  {until  valid  response) 

1119  writePKINIMUM  LEEWAY  SPEED  »>  ’); 

1120  readln(NinLeeSpeed) 

1121  until  MinLeeSpeed  >=  0; 

1122 

1123  NaxLeeBrg  :=  LeewayBrg; 

1124  MinLeeDistance  :=  MinLeeSpeed  *  MinHoursDrift; 

1125  HaxLeeDistance  :=  NaxLeeSpeed  «  MaxHoursDrift 

1126 

1127  end;  {LeewayMethod  -  Drift  Tine  Uncertainty) 

1128  if  LeewayNethod  =  3  then  DriftDirUncertain 

1129 

1130  end;  {LeewayDrift) 

1131 

1132  {wmHwmmw«HmwwHmHHw<mHHHwmHmHmmHWH«w ) 

1133  {Determines  the  sea  (or  slope)  current  affecting  search  object  drift,  and,  ) 

1134  {queries  user  for  total  observed  water  current  vector,  if  known.  ) 

1135 

1136  procedure  SeaCurrent; 

1137 

1138  begin  {SeaCurrent) 

1139  CLRSCR; 

1140  writeinPPlease  enter  the  sea  current  vector  as  described  in  the  National’) 

1141  writelnP SAR  Manual  (approximately  pages  8-16i  and  B-16j>:’); 

1142 

1143 


repeat  {until  valid  compass  heading) 


1144  write  ('SEA  CURRENT  DIRECTION  (SET)  =)  ’); 

1145  readln(DirSeaCurrent) 

1146  until  (OirSeaCurrent  )=  0)  and  (DirSeaCurrent  (=  360); 

1147  writeln; 

1146 

1149  repeat  (until  valid  response) 

1150  write (’SEA  CURRENT  VELOCITY  =>  ’); 

1151  readln(SeaCurrSpeed) 

1156  until  SeaCurrSpeed  >=  0; 

1153  writeln; 

1154 

1155  if  MieHoursDrift  )  0  then 

1156  NinSeaCurrDist  !=  HirtfoursDrift  *  SeaCurrSpeed; 

1157  NaxSeaCurrDist  :=  WaxHoursDrift  *  SeaCurrSpeed; 

1158 

1159  writeCWhich  publication  did  you  use  as  the  source  of  ’); 

1160  writelnCyour  sea  current  data?:’); 

1161  writeln; 

1162  writeC  (1)  Naval  Oceanographic  Office  Spec.  Pub.  '); 

1163  writelnC  Series  4000,  Surface  Currents’ ) ; 

1164  writelnC  (2)  Publication  No.  700’); 

1165  writelnC  (3)  Oceanographic  Atlas’); 

1166  writelnC  (4)  Atlas  of  Surface  Currents’); 

1167  writelnC (5)  Pilot  Charts’); 

1168  writelnC  (6)  Other' ); 

1169  writeln; 

1178  repeat  (until  an  above  source  is  selected) 

.1171  writeCSELECT  ONLY  ONE  =>  ’ ); 

1172  readln(SourceSeaCurr) 

1173  until  EourceSeaCurr  )=  1)  and  (SourceSeaCurr  (=  6); 

1174 

1175  CLRSCRs 

1176  writelnCPlease  enter  the  observed  total  water  current,  if  known.'); 

1177  writelnCThis  current  is  determined  by  observing  the  drift  positions'); 

1178  writelnC  and  tiees  of  surface  debris,  oil  slicks,  or,  by  inserting'); 

1179  writelnC  an  electronic  Datua  Marker  Buoy  in  the  search  area.  This’); 

1180  writelnC  total  water  current  vector  replaces  the  surface  wind  and'); 

1181  writelnCsea  current  vectors  previously  calculated  by  this  progran.’); 

1182  writelnC  (If  unknown,  enter  a  heading  of  361):’); 

1183  repeat  (until  valid  coupass  heading) 

1184  writeCTOTAL  HATER  CURRENT  DIRECTION  =>  ’>; 

1185  readln (DirTotalCurrent) 

1186  until  (DirTotalCurrent  )=  0)  and  (DirTotalCurrent  <=  361); 

1187  writeln; 

1188 

1189  if  DirTotalCurrent  0  361  then 

1190  repeat  (until  valid  response) 

1191  nriteC TOTAL  HATER  CURRENT  VELOCITY  =>  ’); 

1192  readln(TotCurrSpeed) 

1193  until  TotCurrSpeed  >  0; 

1194 

1195  if  MieHoursDrift  )  0  then  NinTotCurrDist  :*  NinHoursDrift  *  TotCurrSpeed 


NaxTotCurrOist  :=  MaxHoursDrift  *  TotCurrSpeed; 


11% 

1197 

1198  CLRSCR; 

1199  writelnC  If  you  have  calculated  a  Tidal  Current  vector,  please  enter  it  here’ 

1206  writelnC  (If  not  applicable,  enter  a  heading  of  381):’); 

1201  repeat  {until  valid  cor pass  heading) 

1202  write!’ TIDAL  CURRENT  DIRECTION  =>  ’>; 

1203  readln(DirTidalCurrent) 

1204  until  (DirTidalCurrent  >=  0)  and  (DirTidalCurrent  (=361); 

1205  writeln; 

1206 

1207  if  DirTidalCurrent  0  361  then 

1208  begin  {Tidal  Current  calculated/known) 

1209  repeat  {until  valid  response) 

1210  writeCKAXIMUM  TIDAL  CURRENT  DISTANCE  => 

1211  readln(MaxTideDistance) 

1212  until  MaxTideDistance  )=  0; 

1213 

1214  repeat  {until  valid  response) 

1215  write (’ MINI WJN  TIDAL  CURRENT  DISTANCE  =>  * ) ; 

1216  readln(NinTideDistance) 

1217  until  MinTideDistance  >=  0; 

1218 

1219  end  {Tidal  Current  calculated/known) 

1220  end;  {SeaCurrent) 

1221 
1222 

1223  {Deterwines  the  Datuw  Drift  Vector  (Min  and  Max,  if  applicable)  from  the  > 

1224  {vector  suw  of  all  previous  surface  drift  vectors.  ) 

1225 

1226  procedure  Datuw; 

1227 

1228  var  BrgRads, 

1229  TenpX, 

1230  TewpY, 

1231  Xconponent, 

1232  Ycowponent  :  real; 

1233 

1234  begin  {Datuw) 

1235 

1236  {Start  Maxiwun  Datuw  Vector  Calculations) 

1237  Xcowponent  :=  0.0;  Ycowponent  :=  0.0;  {re-initial ize) 

1238 

1239  if  DirTotalCurrent  =  361  then  (Observed  Total  Water  Current  unknown) 

1240  begin  (Find  Wind  and  Sea  Current  vectors  X  t  Ycoaponents) 

1241  BrgRads  :=  DirSeaCurrent  /  radians; 

1242  Xcowponent  :=  sin(BrgRads)  *  KaxSeaCurrDist; 

1243  Ycowponent  :=  cos(BrgRads)  *  MaxSeaCurrDist; 

1244  BrgRads  :=  MaxDirWindCurrent  /  radians; 

1245  Xcowponent  :=  Xcowponent  +  sin(BrgRads)  *  MaxWindCurrDist; 

1246  Ycowponent  i=  Ycowponent  +  cos(BrgRads)  *  KaxWindCurrDist 

1247  end  (Find  Hind  and  Sea  Current  vectors  X  i  Ycoaponents) 


(Individual  bearings  converted  to  radians) 
(Used  for  win  Datum  vector  calculations) 
(Used  for  win  Datum  vector  calculations) 
{Horizontal  component  of  individual  vectors) 
(Vertical  component  of  individual  vectors) 


1240 

1249  else  {Use  Observed  Total  Water  Current  in  lieu  of  Wind  or  Sea  Currents) 

1250  begin  {Find  Observed  Total  Water  Current  vector  X  4  Ycomponent s) 

1251  BrgRads  :=  DirTotalCurrent  /  radians; 

1252  Xcoaponent  :=  sin(BrgRads)  *  MaxTotCurrDist; 

1253  Ycoaponent  :=  cos(BrgRads)  *  MaxTotCurrDist 

1254  end;  {Find  Observed  Total  Water  Current  vector  X  4  Ycoaponents) 

1255 

1256  {Use  the  current  X  4  Ycouponents  in  the  Minieua  Datum  Vector  calculations) 

1257  {below  if  LeewayMethod  =  1  or  3. )  TespX  :=  X component;  TeapY  :=  Ycoaponent 
125S 

1259  {Find  Leeway  Drift  vector  X  I  Ycoaponents) 

1260  BrgRads  :=  MaxleeBrg  /  radians; 

1261  Xcoaponent  :=  Xcoeponent  ♦  sin (BrgRads)  *  MaxLeeDistance; 

1262  Ycoeponent  :=  Ycoeponent  ♦  cos(BrgRads)  *  MaxLeeDistance; 

1263 

1264  if  BaxTideOistance  >  0  then  {Tidal  Current  calculated/known) 

1265  begin  {Find  Tidal  Water  Current  vector  X  4  Ycoaponents) 

1266  BrgRads  DirTidalCurrent  /  radians; 

1267  Xcoaponent  :=  sin(BrgRads)  *  MaxTideDistance; 

1268  Ycoeponent  :=  cos(BrgSads)  *  MaxTideDistance 

1269  end;  {Find  Tidal  Water  Current  vector  X  4  Ycoaponents) 

1270 

1271  CLRSCR; 

1272  writelnC  (Max)  Datua  Vector:'); 

1273  flddVectors ( Xcoaponent ,  Ycoeponent ) ; 

1274  writelns(2); 

1275  DmaxDir  :=  RvgWindFroe; 

1276  DaaxDistance  :=  ResultMagnitude; 

1277  {End  Maximum  Datum  Vector  Calculations) 

1278 

1279  {Start  Minieua  Datua  Vector  Calculations) 

1280  Xcoaponent  :=  0.0;  Ycomponent  :=  0.0;  (re-initialize) 

1281 

1282  if  DirTotalCurrent  *  361  then  (Observed  Total  Water  Current  unknown) 

1283  begin  {Find  Min  Wind  and  Min  Sea  Current  vectors  X  1  Ycoeponent s) 

1284  if  MinSeaCurrDist  >  0  then  (If  Min  Sea  Current  vector  exists) 

1285  begin  {Find  Min  Sea  Current  vector  X  i  Y  components) 

1286  BrgRads  ;=  DirSeaCurrent  /  radians; 

1287  Xcoaponent  :=  sin(BrgRads)  t  MinSeaCurrDist; 

1288  Ycoaponent  :=  cos(BrgRads)  *  MinSeaCurrDist 

1289  end;  {Find  Min  Sea  Current  vector  X  4  Y  components) 

1290 

1291  if  MinDirWindCurrent  0  361  then  (If  Min  Wind  Current  vector  exists) 

1292  begin  {Find  Min  Wind  Current  vector  X  4  Y  components) 

1293  BrgRads  :*  MinDirWindCurrent  /  radians; 

1294  Xcoaponent  :=  Xcoaponent  ♦  sin (BrgRads)  *  MinWindCurrDist; 

1295  Ycoaponent  :=  Ycomponent  ♦  cos (BrgRads)  ♦  MinWindCurrDist 

1296  end  (Find  Min  Wind  Current  vector  X  l  Y  components) 

1297  end  (Find  Min  Wind  and  Min  Sea  Current  vectors  X  4  Yconponents) 

1298 

1299  else  (Use  Observed  Total  Water  Current  in  lieu  of  Wind  or  Sea  Currents) 


1300  begin  (Find  Observed  Total  Water  Current  vector  X  t  Ycoaponents) 

1301  BrgRads  :=  DirTotalCurrent  /  radians; 

1302  Xcoaponent  :=  sin  (BrgRads )  #  MinTotCurrDist; 

1303  Ycoaponent  :=  cos (BrgRads)  #  MinTotCurrDist 

1304  end;  {Find  Observed  Total  Water  Current  vector  X  &  Ycoeponents) 

1305 

1306  if  LeewayMethod  0  2  then 

1307  begin  (Set  Min  X  t  Y  conponent  values  =  Max  Sea  and  WindCurrent  values) 

1308  Xcoaponent  :=  TeapX;  Ycoaponent  :=  TeoipY 

1309  end;  {Set  Min  X  t  Y  conponent  values  *  Max  Sea  and  WindCurrent  values) 

1310 

1311  {Find  Leeway  Drift  vector  X  t  Ycomponents) 

1312  BrgRads  :=  MinLeeBrg  /  radians; 

1313  Xcoaponent  :=  Xcoaponent  ♦  sinfBrgSads)  *  MinLeeDistance; 

1314  Ycoaponent  :=  Ycoaponent  +  cos (BrgRads)  *  MinLeeDistance; 

1315 

1316  if  MinTideDistance  )  0  then  {Tidal  Current  calculated/known) 

1317  begin  {Find  Tidal  Water  Current  vector  X  i  Ycomponents) 

1318  BrgRads  :=  DirTidalCurrent  /  radians; 

1319  Xcoaponent  :=  Xcoaponent  +  sin (BrgRads)  *  MinTideDistance; 

1320  Ycoaponent  :=  Ycoaponent  +  cos (BrgRads)  «  MinTideDistance 

1321  end;  {Find  Tidal  Water  Current  vector  X  i  Ycoaponents) 

1322 

1323  writelnl1 (Min)  Datua  Vector:1); 

1324  AddVectors ( Xcoaponent , Ycoaponent ) ; 

1325  writelns(2); 

1326  DainDir  s=  AvgWindFroa; 

1327  DninDistance  :=  ResultMagnitude; 

1328  {End  Mininun  Datua  Vector  Calculations) 

1329 

1338  writeCTotal  Surface  Drift  Dir.  :  ’jDainDir^.'O); 

1331  writelnl1 -degrees  1  jDsiaxDir^'.B,1  -degrees1); 

1332  writePTotal  Surface  Drift  Dist. :  ^DninDistance^:’) ; 

1333  writelnl1  naut.  ai.  '  ,DBaxDistance:4:2, ’  naut.  ni . ’ ) ; 

1334  aritelns(7); 

1335  writel’HIT  RETURN  (Once  or  twice,  as  necessary)  TO  CONTINUE  ’); 

1336  readln(continue); 

1337 

1338  CLRSCR; 

1339  aritelns(4); 

1340  aritelnl’Calculating  .  .  .  Please  stand  by1) 

1341 

1342  end;  {Datua) 

1343 

1344 

1345  {Provides  user  with  prograa  inforaation,  limitations  on  use  and  license.  ) 

1346 

1347  procedure  Warranty; 

1348 

1349  var  continue  s  char;  {Bogus  read  variable  provides  tine  to  read  warranty) 

1350 

1351  begin  {Warranty) 
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1352 

1353  write!’  (uiHiiiiiiHiHiimimmuHiHW1 ) ; 

1354  writeln  (’  hhhhhhhhmhhihmhjhhhhI'  ) ; 

1355  write!'  (*  SEARCH  PLACING  SOFTWARE  * ) ; 

1356  writeln!' (PROGRAM  #2  OF  31  *)’); 

1357  write!’  (*  TITLE:  SURFDRIF.COM  (Surface  Drift 

1358  writeln!' Algorithm)  *)’>; 

1359  write!' (*  VERSION:  1.1  for  CP/M  *  > ; 

1360  writelnCOperating  Systea  *)’); 

1361  write!’ (*  DATE  WRITTEN:  Septeeber  1984'); 

1362  writeln!’  *1’)5 

1363  write!’ (*  LICENSE:  COPVRISHT  1984’); 

1364  writeln!’  D.  RICK  DOUGLAS  *>’>5 

1365  write!'  («m«m*M***«m«*******m«m’ ) ; 

1366  Witel(l('HHHHHHHHHHHH«<H«HHHH|'  ) ; 

1367  writePThe  author  Bakes  no  express  or  implied  '); 

1368  writelnCwarranty  of  arty  kind  with  regard  to’); 

1369  write!’ this  program  Material,  including,  but'); 

1370  writelnCnot  United  to,  the  implied  warranty  of’); 

1371  write!’ fitness  for  a  particular  purpose.  ’); 

1372  writelnCThe  author  shall  not  be  liable  for’); 

1373  write!' incidental  or  consequential  daaages  '); 

1374  writeln!' in  connection  with  or  arising  out  of'); 

1375  write!' furnishing,  use,  or  performance  of  this  '); 

1376  writeln!' prograa.  The  reader  MUST  HAVE  a  solid’ ! ; 

1377  write (’understanding  of  search  and  rescue  ’); 

1378  writelnCuethodology  before  using  this  software  in'); 

1379  write Cnaking  decisions  where  husan  life  is  at  ’); 

1380  writeln!’ risk.  In  fact,  since  no  amount  of’); 

1381  write!' testing  can  uncover  100*  of  prograi  '); 

1382  writeln!' errors,  this  progra«  is  recosusendeb  for’); 

1383  write!' training  use  only.  Prior  attendance  ’); 

1384  writeln  Cat  the  United  States  Coast  Guard"s’); 

1385  writelnCNational  SAR  School  is  highly-encouraged.'); 

1386  writeln; 

1387  write  (’  (HIHHtfHHHiHHtHHIiH’ ) ; 

1388  writeln!’  WARNING!  whh»wh«hiwh«huhhhh!'  ) ; 

1389  write!' (*  THIS  SOFTWARE  WY  BE  FREELY-'); 

1390  writeln!' DISTRIBUTED  PROVIDED  NO  FEE  *)’); 

1391  write!’ (♦  IS  CHAR6ED  AND  THIS'); 

1392  writeln!'  COPYRIGHT  NOTICE  IS  RETAINED  *)’); 

1393  write!’  iHWHHHHHlHWmWHHHHW1 )  ; 

1394  WitelnCHHHHHHKHItilltiHHIHHHHHl'  ) ; 

1395  writeln; 

13%  writeCPLEASE  HIT  RETURN  (Once  or  twice,  as  necessary)  TO  CONTINUE’); 

1397  readln(continue) 

1398 

1399  end;  {Warranty) 

1400 

1481  {«IIWHWIHHWWHWimHmnmHHHHWHIHH>HHHHH«HH} 

1402  {Called  by  procedure  WriteToDisk;  Prints  out  record  of  Wind  and  Sea  Current  > 

1403  {vectors  or  Observed  Total  Water  Current  vector,  as  applicable.  } 
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procedure  RecordCurrents; 

var  I,J  :  integer;  (Used  as  counters) 

begin  {RecordCurrents) 

if  DirTotalCurrent  =  361  then 

begin  {Observed  Total  Water  Current  unavailable) 

{Begin  record  of  Wind  Current  Vector) 
for  I  :=  1  to  N  do 
begin  {repeat  for  each  period) 
writelntSeaDat,'  ’); 

writeln (SeaDat, ’WIND  CURRENT  PERIOD  #\I:1>; 
write(SeaDat,' Interval  Date-Tise-Group  Wind  ’); 

writelntSeaDat,  ’  Coefficients  Contribut  ions' ) ; 

for  J  :=  1  to  8  do 

begin  {repeat  for  each  interval) 

write (SeaDat,’  * ,  Js  1,  *  ’,WindsQverTiae[I,J, 11:2:0); 

if  Ninds0verTiaeII,J,2]  =  0  then  write (SeaDat, '0000Z  ’) 

else  if  WindsQverTiaeII,J,21  =  600  then  write (SeaDat,'0S80Z 
else  write(SeaDat,WindsOverTiae£I, J, 21:4:0, ’Z 
write(SeaDat,WindsOverTiBe£I,J, 31:3:0,’  /  '); 
write(SeaDat,UindsOverTiise£I,J,41:2:0,'  '); 

write(SeaDat,UindCoeffs[J, 11:3:9, 1  /  »>; 
write(SeaDat,WindCoeffsCJ, 21:4:3,’  ’); 

write(SeaDat,Winds£)verTime£I,J, 51:3:0,'  /  ’); 
writelntSeaDat, WindsOverTi«e£I,J, 61:4:3) 
end;  {repeat  for  each  interval) 
writelntSeaDat,’ 

write(SeaDat,' local  Wind  Current  This  Period  '); 

writeln(SeaDat,PeriodVectorsCI, 11:3:0,’  /  ',PeriodVectorstI, 21:4:3) 
write (SeaDat, 'Number  Of  Hours  In  This  Period  '); 

writeln (SeaDat,  HoursWindEf feet  III : 1 ) ; 
write(SeaDat,'Wind  Current  Vector  This  Period  '); 

write (SeaDat, Per iodVectorsII,  11:3:0,'  /  ',PeriodVectorsCl, 31:4:3); 
writelntSeaDat,'  nautical  Biles’); 

write  (SeaDat,' - ’ ); 

writeln(SeaDat, ' - ' ) 

end;  {repeat  for  each  period) 

write (SeaDat,’ Total  Wind  Current  Direction  '); 
if  HaxDirWindCurrent  >  109  then 

writeln (SeaDat , KaxDirWindCurrent : 3:0, '  -degrees  True’ ) 
else  if  HaxDirWindCurrent  >  10  then 

writeln(SeaDat, '0', WaxDirWindCurrent :2:0, '-degrees  True’) 
else  writelntSeaDat, '00', MaxDirWindCurrent:l:9, '-degrees  True'); 


if  HinHoursDrift  =  9  then 

begin  {Kininuw  wind  current  vector  not  computed) 


1456  write(SeaDat, 'Total  Wind  Current  Distance  '); 

1457  writeln(SeaDat,MaxWindCurrDist:4:2,'  nautical  Biles') 

1458  end  (Hinuua  Mind  current  vector  not  cosputed) 

1459  else 

1468  begin  {sax  and  ein  Mind  current  drift  distances  exist) 

1461  write (SeaDat,1  Total  Wind  Curr.  Distance:  Min  =  ’,MinWindCurrDist:4:2) 

1462  writeln (SeaDat,1  naut.ai.  Max  *  ',MaxWindCurrDist:4:2, ’  naut.  ei.') 

1463  end;  {sax  and  ain  seacurrent  drift  distances  exist) 

1464 

1465  mt  ite<SeaDat ,  ’  =— — - — ) ; 

1466  writeln(SeaDat, ’================' ); 

1467  Mriteln(SeaDat,'  '); 

1468  writeln(SeaDat,’ SEA  CURRENT  VECTOR:  ’); 

1469 

1470  if  SourceSeaCurr  =  1  then 

1471  begin  (Source  II  used) 

1472  write(SeaDat,'Used  Naval  Oceanographic  Office  Spec.  Pub.  ’); 

1473  writeln(SeaDat,’ Series  4888,  Surface  Currents') 

1474  end;  (Source  11  used) 

1475  if  SourceSeaCurr  *  2  then  writeln (SeaDat,1  Used  Publication  No.  708'); 

1476  if  SourceSeaCurr  =  3  then  Mriteln (SeaDat, 'Used  Oceanographic  Atlas’ ); 

1477  if  SourceSeaCurr  ~  4  then 

1478  writeln(SeaDat,’Used  fttlas  of  Surface  Currents'); 

1479  if  SourceSeaCurr  =  5  then  writeln(SeaDat,'Used  Pilot  Charts’); 

1488  Mriteln; 

1481  if  SourceSeaCurr  =  6  then 

1482  writeln(SeaDat, 'Source: _ '); 

.1483 

1484  Mrite(SeaDat,’Sea  Current  Direction  (Set)  '); 

1485  if  DirSeaCurrent  )  188  then 

1486  uriteln(SeaDat,DirSeaCurrent:3:0, ’-degrees  True') 

1487  else  if  DirSeaCurrent  >  18  then 

1488  uriteln (SeaDat, '8' ,DirSeaCurrent:2:0, ’-degrees  True') 

1489  else  MritelntSeaDat, ' 08' ,  DirSeaCurrent : 1 :8,  ’  -degrees  True' ) ; 

1490  write(SeaDat,'Sea  Current  Drift  Rate  ’); 

1491  Mriteln(SeaDat,SeaCurrSpeed:4:2,'  knots’); 

1492  if  MinHoursDrift  =  8  then 

1493  begin  (No  oininuu  vector  calculations) 

1494  w*ite(SeaDat,'Sea  Current  Drift  Distance:  '); 

1495  writeln(SeaDat,MaxSeaCurrDist:4:2,’  knots') 

14%  end  (No  aininua  vector  calculations) 

1497  else 

1498  begin  (sax  and  ein  seacurrent  drift  distances  exist) 

1499  Mrite(SeaDat,'Sea  Current  Drift  Distance:  Min  =  ’,MinSeaCurrDist:4:2); 

1500  Mriteln (SeaDat,’  knots  Max  =  ',MaxSeaCurrDist:4:2, '  knots’) 

1501  end  (aax  and  sin  seacurrent  drift  distances  exist) 

1582 

1503  end;  (Observed  Total  Water  Current  unavailable) 

1504 

1585  if  (DirTotalCurrent  0  361)  and  (TotCurrSpeed  )  8)  then 

1586  begin  (Total  water  current  vector  is  known) 

1507  write  (SeaDat,  ’  ) ; 
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1508  writeln(SeaDat,  ’  ==—=====■=— -==========’ ) ; 

1503  writeln(SeaDat,’  '); 

1510  writeln(SeaDat, ’OBSERVED  TOTAL  WATER  CURRENT  VECTOR:  ’); 

1511  write(SeaDat,’Tot  Current  Direction:  '); 

1512  if  DirTotalCurrent  >  100  then 

1513  writeln(SeaDat,DirTotalCurrent:3:0,’-degrees  True') 

1514  else  if  DirTotalCurrent  )  10  then 

1515  writeln(SeaDat,'B',DirTotalCurrent:2:0,’-degrees  True') 

1516  else  writeln(SeaDat, '00' , DirTotalCurrent: 1:0, ’-degrees  True’); 

1517  write (SeaDat, ’Tot  Current  Drift  Speed:  ’,TotCurrSpeed:4:2); 

1518  writeln(SeaDat,'  knots’); 

1519  if  MinHoursDrift  =  0  then 

1520  begin 

1521  write<SeaDat,’Tot  Current  Drift  Distance:  ’); 

1522  writeln(SeaDat,MaxTotCurrDist:4:2, ’  knots') 

1523  end 

1524  else 

1525  begin  {s ax  and  ein  total  current  drift  distances  exist) 

1526  write(SeaDat,'Tot  Current  Drift  Distance:  Min  =  ’ ,KinTotCurrDist:4:£) 

1527  writeln (SeaDat,'  knots  Max  =  ’,MaxTotCurrDist:4:2,'  knots’) 

1528  end  {nax  and  tin  total  current  drift  distances  exist) 

1529 

1530  end  {Total  water  current  vector  is  known) 

1531  end;  {RecordCurrents) 

1532 

1533  {HHHHIHIHHIHHIHmHHIHMHHWHWHMIMHWHHmHHIHH} 

1534  {Prints  out  record  of  search  planning  inputs  and  calculations  froa) 

1535  {this  program  ) 

1536 

1537  procedure  HriteToDisk; 

1538 

1539  var  I  :  integer;  {Used  as  counter) 

1540  LastDegree,  {Last  known  position  degrees) 

1541  LastMinute  :  real;  {Last  known  position  Kinutes) 

1542 

1543  begin  {KriteToDisk) 

1544  assignlSeaDat, ' SeaData’ ) ; 

1545  rewrite(SeaDat); 

1546 

1547  {Begin  record  of  last  known  position  and  time) 

1548  LastDegree  :=  trunc(LastLatituceKnown); 

1549  LastMinute  :=  round!  (LastLatitudeKnown-LastDegree)  *  100); 

1550  write(SeaDat,’ Hissing  aerospace  object /pi lot (s)  last  known  position:’); 

1551  if  LastDegree  <  10  then  write (SeaDat,’  8’ , LastDegree: 1 :®,  ’  -’ ) 

1552  else  write(SeaDat,’  ',LastDegree:2:0,'-’ ) ; 

1553  if  LastMinute  <  10  then  write(SeaDat,’0’, LastMinute: 2:0, ’  ’) 

1554  else  write(SeaDat,LastMinute:2:0,'  ’); 

15Si  if  LatNS  =  ’ N’  then  write(SeaDat, '  North’ )  else  write (SeaDat,’ South' ) ; 

1556 

1557  LastDegree  :=  trunc(LastLongitudeKnown); 

1558  LastMinute  :=  round!  (LastLongitudeKrcwn-LastDegree)  *  100); 

1559  if  LastDegree  (  10  then  writetSeaDat,'  0' , LastDegree: 1:0,'-’) 
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1560  else  write (SeaDat,'  ',LastDegree:2:0,'-’); 

1561  if  LastHinute  <  10  then  write (SeaDat,'  0', LastHinute: 1:0,'  ') 

1562  else  write (SeaDat,’  ’, LastHinute :2:0,'  ’); 

1563  if  LongEU  =  *U’  then  writeln(SeaDat,'Uest')  else  writeln (SeaDat, 'East'); 

1564 

1565  {Prints  a  zero  in  front  of  one-digit  dates  in  Z  DTS  foroat) 

1566  if  trunc (Last DateT iae  /  10000)  (  10  then 

1567  writeln(SeaDat,’Tieei  0\LastDateTii*:5:0,’Z  ’,LastHonth:2,'/’,LastYear:4> 

1566  else 

1569  writeln(SeaDat,’TiBe:  ',LastDateTi*e:6:0,'Z  Last  Month:?, '  /' ,  Last  Year  ; 

1570  write(SeaDat, 1  ■■  ■--■■■■  ) ; 

1571  writeln (SeaDat, '  s==ss==s=ss=s==ss==sassssss=zssss=ssi ) ; 

1572 

1573  {Begin  record  of  Average  Surface  (Leeway)  Hinds) 

1574  writeln (SeaDat, 'AVERAGE  SURFACE  HINDS:'); 

1575  writeln (SeaDat, 'Date-Tine-Group  Hours  Hind  Contributions’); 

1576  for  I  :=  1  to  N  do 

1577  begin  {repeat  for  each  wind  block) 

1578  write  (SeaDat,'  ',HindsOverTi«ieCI,  1,11:2:0); 

1579  if  HindsQverTiseCI,l,2)  =  0  then  write(SeaDat,'0000Z  ') 

1580  else  if  HindsOverTineCI, 1,2]  =  600  then  write (SeaDat, '0680Z  ') 

1581  else  write(SeaDat, HindsOverTineCI, 1,2):4:0,’Z  ’); 

1582  write(SeaDat,KoursUindEffectCn:l,'  'I; 

1583  write (SeaDat, HindsOverTineCI,  1,33:3:0,*  /  '); 

1584  write(SeaDat,UindsOverTisetI,l,4)!2:0,'  '); 

1585  write(SeaDat, HindsOverTineCI, 1,31:3:0,'  /  ’); 

1586  writeln(SeaDat,  VelocityCoaponentO)  :3:0) 

1587  end;  {repeat  for  each  block) 

1588 

1589  writeln (SeaDat,’  '); 

1590  write(SeaDat,’ Total  Average  Surface  Hind  Direction  '); 

1591  if  DirSurfUind  )  100  then 

1592  wri te (SeaDat, DirSurf Hind :3:0, ’-degrees  True’) 

1593  else  if  DirSurfHind  )  10  then 

1594  write(SeaDat,’0’,DirSurfHind:2:0, '-degrees  True’) 

1595  else  write(SeaDat, '00', DirSurfHind;l:0, '-degrees  True’); 

15%  writeln(SeaDat,’  at  ’,SurfWndSpeed:4:2,'  knots'); 

1597  write  (SeaDat, 1  ) . 

1598  writeln  (SeaDat,  '”=—-==============»=’ ); 

1599 

1600  writeln(SeaDat,'  '); 

1601  write (SeaDat,’ LEEUAY  DRIFT  VECTOR  CALCULATIONS:  ’); 

1602  if  LeewayHethod  =  1  then 

1603  begin  {Drift  rate  uncertainty) 

1604  writeln(SeaDat,’Drift  Rate  Uncertainty’); 

1605  writeln(SeaDat,’ Hours  Of  Drift  ’,HaxHoursDrift:2); 

1606  write(SeaDat, 'Drift  Rate  Hin  =  ’,HirieeSpeed:4:2) ; 

1607  writeln (SeaDat,’  knots  Kax  =  ’,HaxLeeSpeed:4:2,’  knots'); 

1608  write(SeaDat,' Leeway  Direction  ’); 

1609  writeln(SeaDat,HaxLeeBrg:3:0, '-degrees  True'); 

1610  if  MaxLeeBrg  )  100  then 

1611  writeln(SeaDat,HaxLeeBrg:3:0, '-degrees  True’) 


1612 

1613 

1614 

1615 

1616 

1617 

1618 
1619 
1629 
1621 
1622 

1623 

1624 

1625 

1626 

1627 

1628 
1629 
1639 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 
1649 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 
1659 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 
1669 
1661 
1662 
1663 


else  if  MaxLeeBrg  )  10  then 

wr iteln (SeaDat, ’ 0' , MaxLeeBrg:2:0, * -degrees  True' ) 
else  writelnlSeaDat, '00', MaxLeeBrgil:0, '-degrees  True'); 
writelSeaDat,' Leeway  Distance  Min  =  ’,MinLeeDistance:4:2) 

writelnlSeaDat,'  naut.ei.  Max  =  ',MaxLeeDistanc*:4:2,'  naut.ei.’) 
end;  (Drift  rate  uncertainty) 


if  LeewayMethod  =  2  then 
begin  (Drift  tine  uncertainty) 

writelnlSeaDat, 'Drift  Ti«e  Uncertainty'); 

writelSeaDat, 'Hours  Of  Drift  Min  =  ’,MinHoursDrift:2); 

writelnlSeaDat,’  Max  =  ',MaxHoursDrift:2); 

write (SeaDat,’ Drift  Rate  ’,MaxLeeSpeed:4:2); 

MritelniSeaDat,’  knots’); 

writelSeaDat,’ Leeway  Direction  '); 

if  MaxLeeBrg  )  100  then 

writelnlSeaDat, MaxLeeBrg :3:0, '-degrees  True' ) 
else  if  MaxLeeBrg  )  10  then 

writelnlSeaDat,  ’ 0’ , MaxLeeBrg :2:9,  ’  -degrees  True' ) 
else  writelnlSeaDat, '80', MaxLeeBrg:l:0, '-degrees  True’); 
writelSeaDat, 'Leeway  Distance  Min  =  ',MinLeeDistance:4: 

writelnlSeaDat,’  naut.ei.  Max  «  ’,MaxLeeDistance:4:2,'  naut.ei.') 
end;  (Drift  tiee  uncertainty) 


2) 


if  LeewayMethod  -  3  then 

begin  (Directional  drift  uncertainty) 

writelrlSeaDat,’ Directional  Drift  Uncertainty'); 
write(SeaDat,’MaxiBua  Expected  Divergence  ’); 

writelnlSeaDat,  MaxDivergence:2,’ -degrees' ) ; 
writelSeaDat, 'Drift  Rate  ’); 

writelnlSeaDat, MaxLeeSpeed:5:3,'  knots’ ) ; 

writelnlSeaDat, 'Hours  Of  Drift  ’,MaxHoursDrift:2); 

writelSeaDat, 'Leeway  Direction  Min  =  ')j 

if  MinLeeBrg  )  180  then 

writelSeaDat, MinLeeBrg:3:0, '-degrees  Max  =  ') 
else  if  MinLeeBrg  )  10  then 

write(SeaDat,'0’,MinLeeBrg:2:0,'-degrees  Max  =  ’) 

else  writelSeaDat, '00', MinLeeBrg: 1:0, '-degrees  Max  =  '); 
if  MaxLeeBrg  )  100  then 

writelnCSeaDat, MaxLeeBrg :3:0,  ’ -degrees  True' ) 
else  if  MaxLeeBrg  )  10  then 

wr iteln (SeaDat, ' 0' , MaxLeeBrg :2;0, '  -degrees  True' ) 
else  wr iteln (SeaDat,' 00', MaxLeeBrg: 1:0, '-degrees  True’); 
writelSeaDat, 'Leeway  Distance  Min  =  ’,MinLeeDistance:4:2) 

writelnlSeaDat,'  naut.ei.  Max  =  ',MaxLeeDistance:4:2,'  naut.ei.') 
end;  (Directional  drift  uncertainty) 


write  (SeaDat, '  =============== - ) . 

writelnlSeaDat, '  =gs==-~=^— =asm_ia==s=s=si ), 
RecordCurrents; 


if  MaxTideDistance  >  0  then 


1664  begin  {Tidal  Current  calculated/knoan} 

1665  aritelSeaDat, ’Tidal  Current  Direction:  '); 

1666  if  DirTidalCurrent  )  100  then 

1667  ariteln(SeaDat,DirTida!Current:3:0,  '-degrees  True') 

1668  else  if  DirTidalCurrent  )  18  then 

1669  aritelnISeaDat, '0', DirTidalCurrent :2:0,’ -degrees  True') 

1670  else  aritelnISeaDat, ’80’, DirTidalCurrent:l:0, ’-degrees  True’); 

1671  if  MinTideDistance  >  0  then 

1672  begin  <nax  and  am  tidal  current  drift  distances  exist} 

1673  aritelSeaDat,' Tidal  Curr.  Drift  Distance:  Min  =  ’); 

1674  aritelSeaDat, MinTideDistance:4:2,’  naut.ai.  Max  =  '); 

1675  writeln(SeaDat,MaxTideDistance:4:2,'  naut.ni.’) 

1676  end  <aax  and  nin  tidal  current  drift  distances  exist} 

1677  else 

1678  begin 

1679  aritelSeaDat, 'Tidal  Curr.  Drift  Distance:  '); 

1680  ariteln(SeaDat,MaxTotCurrDist:4:2,'  naut.ai.’) 

1681  end 

1682 

1683  end;  {Tidal  Current  calculated/knoan} 

1684 

1685  ariteiSeaDat,  ’  ) . 

1686  aritelnISeaDat,  ); 

1687  aritelnISeaDat,’  '); 

1688  ar i teln (SeaDat , ’ TOTAL  SURFACE  DRIFT  (Dain  l  Daax)  VECTORS:’); 

1689  aritelSeaDat, ’ Tot. Surf. Drift  Direction  :  ’); 

1690  if  DninDir  )  100  then 

1691  aritelSeaDat, DninDir:3:0,’  -degrees  ’) 

1692  else  if  DninDir  )  10  then 

1693  erite(SeaDat,'0’,DninDir:2:0,’-degrees  ’) 

1694  else  arite(SeaDat,’00’,DainDir:l:0, ’-degrees  ’); 

1695  if  DnaxDir  )  100  then 

1696  ariteln(SeaDat,DaaxDir:3:0, ’-degrees  True’) 

1697  else  if  DoaxDir  >  10  then 

1698  aritelnISeaDat, ’8’,  DnaxDir:2:0,' -degrees  True') 

1699  else  aritelnISeaDat, ’00’, DnaxDir: 1:0, '-degrees  True’); 

1700  aritelSeaDat, 'Tot. Surf.Drift  Distance  :  ’,DninDistance:4:2); 

1701  aritelnISeaDat,'  naut.  ai.  ',DnaxDistance:4:2, '  naut.  ai.’); 

1702 

1703  aritelSeaDat, '  — = — ----  =======’ ) ; 

1704  aritelnISeaDat, 1  asBsss=ssaassss«.i..i..1.ass3sss=asas«s»  ) ; 

1705  aritelnISeaDat,'  ’); 

1706  close(SeaDat) 

1707  end;  {WriteToDisk} 

1708 

1710  begin  {aain  prograal 

1711 

1712  {initialize  prograa  variables} 

1713  continue  :=  'O’;  DatumDateTine  :=  0.0;  DatunMonth  :=  0;  DatuaYear  : 

1714  Days  :*  0;  DegreesLat  :=  180;  DirSeaCurrent  :=  361.0; 

1715  OirSurfWind  :=  0.0;  DirTidalCurrent  :=  -1.0;  DirTotalCurrent  :=  -1.0 


1716  DaaxDir  :=  -1.0;  DainDir  :=  -1.0;  DaaxDistance  :=  0.0; 

1717  DainDistance  :=  0.0;  HoursElapsed  :=  0;  LastDateTiee  :=  0.0; 

1716  LastDay  :=  0;  LastHour  :=  0;  LastLatitudeKnown  :=  0.0; 

1719  LastLongitudeKnown  :=  0,0;  Last Month  :=  0;  Last Year  :=  0; 

1720  LatNS  :=  *Q* ;  LeewayBrg  »=  0.0;  LeewayMethod  s=  4;  LongEW  :=  'Q' ; 

1721  NaxDirWindCurrent  .*=  -1.6;  MinDirWirw'Current  .*=  -1.0; 

1722  MaxDivergence  :=  0;  MaxHoursDrift  :=  0;  MinHoursDrift  :=  0; 

1723  MaxLeeBrg  0.0;  MinLeeBrg  :=  0.0;  NaxLeeDistance  :=  0.0; 

1724  NinLeeDistance  s=  0.0;  NaxLeeSpeed  :=  0.0;  MinLeeSpeed  :=  0.0; 

1725  KaxSeaCurrDist  :=  0.0;  WinSeaCurrDist  :=  0.0;  MaxTideDistance  :=  -1.0; 

1726  MinTideDi stance  :=  -1.0;  MaxTotCurrDist  :=  0.0;  KinTotCurrDist  :=  0.0; 

1727  NaxWindCurrDist  :=  -1.0;  NinWindCurrDist  :=  -1.0;  N  :=  0; 

1728  ResultMagnitude  s=  0.0;  SeaCurrSpeed  :=  -1.0;  SourceSeaCurr  :=  0; 

1729  SurfWnd Magnitude  s=  0.0;  SurfWndSpeed  !=  0.0;  TotCurrSpeed  :=  0.0; 

1730 

1731  (initialize  character  sets) 

1732  ValidAnswers  :=  ['Y','y‘,»N*f'n'l}  No  !=  C'N‘,'n»];  Yes  :=  [’Y’,’y’I; 

1733 

1734  (initialize  prograa  arrays) 

1735  for  I  :=  1  to  8  do  for  J  :=  1  to  2  do  WindCoeffstl.J)  0.0; 

1736  for  I  ;*  1  to  nax  do 

1737  begin 

1738  HoursWindEf feet  III  :=  0; 

1739  VelocityCoaponentCll  s=  0.0; 

1740  for  J  :=  1  to  8  do 

1741  for  K  i=  1  to  6  do  WindsOverTiae(I,J,K]  !=  0.0; 

1742  for  J  i*  1  to  2  do  PeriodVectorsU,J)  0.0 

1743  end; 

1744 

1745  Warranty; 

1746  CLRSCR; 

1747  writelnCGiven  the  initial  surface  position  coordinates  (latitude  and'); 

1748  writelnC longitude)  of  an  object  on  the  ocean" s  surface  and  starting’); 

1749  nritelnCdate/tine,  this  program  calculates  an  updated  surface  position'); 

1750  writelnC (Datum  point)  or  search  area  for  a  specified  (Datua)  tine.  If'); 

1751  writelnCthe  updated  surface  position  coordinates  are  all  ready  known,') ; 

1752  writelnCthen  enter  N  to  the  next  question  and  proceed  with  other  recovery') 

1753  writelnC planning  as  outlined  in  the  National  Search  and  Rescue  Manual.'); 

1754  writelns(2); 

1755  writelnCP.S.  Run  this  prograa  TWICE  if  the  nuaber  of  hours  of  search’); 

1756  writelnC  object  drift  is  uncertain.  On  the  first  run,  enter  data  cnly'); 

1757  writelnCfor  the  SHORTER  drift  period  (later  drift  start  tine).  After'); 

1758  writelnCthe  prograa  calculates  the  Average  Surface  Wind  and  Wind  Current'); 

1759  writelnC vectors,  record  them,  ABORT  the  prograa  run,  and  CLEAR  your'); 

1760  writelnC  microcomputer"  s  aeaory.  Then  rerun  the  entire  prograa,  waking* ); 

1761  writelnCsure  to  enter  data  for  the  LONGER  drift  period  (earlier  drift'); 

1762  writelnCstart  tiae).  Enter  the  vectors  you  recorded  above  when  asked’ ) ; 

1763  writelnCby  the  program.'); 

1764  writelns(4); 

1765  repeat  (until  valid  response) 

1766  writeCDo  you  wish  to  continue  with  this  prograa?  (y/n)  =>  '); 

1767  readln(continue); 


1768  Mriteln 

1769  until  (continue  in  ValidAnswers); 

1778 

1771  if  (continue  in  Yes)  then 

1772  begin  {prograa  run) 

1773  continue  :=  ’O’;  {re-initialize) 

1774  CLRSCR; 

1775  SurfacePosition; 

1776  CLRSCR j 

1777 

1778  writelnCThis  prograa  includes  Hind  current  calculations  to  determine’); 

1779  writelnPDatua.  However,  according  to  the  National  SflR  Manual,  Hind’); 

1788  writelnPcurrents  are  usually  ignored  in  coastal,  lake,  river,  and'); 

1781  Mriteln  (’harbor  areas  due  to  the  tarty  variable  effects  frost  the  eater-’ ); 

1762  writelnPland  interface.  This  prograa  is  based  on  the  assuaption  of’); 

1783  writelnCoperrsea  search  where  land  Basses  do  not  interfere  with  the’); 

1784  Mriteln (’act ion  of  the  Mind  on  the  water  or  on  the  currents  generated’); 

1785  writelnCby  thee.  A  rule  of  thutb  is  to  calculate  wind  currents  when'); 

1786  NritelnCwater  depths  are  greater  than  130  feet  (32  eaters)  and  at’); 

1787  NritelnC distances  of  28  Biles  (32  kilooeters)  or  greater  free  shore.’); 

1788  NritelnCUind  currents  are  not  usually  used  inside  these  limits* ) ; 

1769  NritelnC except  where  local  knowledge  Bakes  it  possible  to  estiaate'); 

1798  NritelnC one.  This  is  especially  true  where,  close  to  shore,  the  '); 

1791  Mriteln (’ water” s  depth  increases  rapidly.'); 

1792  MritelnstS); 

1793  repeat  {until  valid  response} 

1794  write'’ Do  you  wish  to  continue  with  this  prograa?  (y/n)  =)  '); 

1795  readln(continue); 

1796  Mriteln 

1797  until  (continue  in  VaiidAnswers); 

1798 

1799  if  (continue  in  Yes)  then 

1880  begin  {Ocean  Current  calculations} 

1801  CLRSCR; 

1802 

1803  MritelnCPlease  enter  the  nuaber  of  hours  elapsed  (to  the  NEAREST’); 

1804  uriteln (’HOUR)  froa  the  last  known  surface  position  (LKP)  tiae  to'); 

1805  writelnCthe  desired  Oatua  tine.’); 

1806  Mritelns(2); 

1807  NritelnC If  the  nuaber  of  hours  of  search  object  drift  is  uncertain,') 

1808  MritelnCyou  Must  run  this  prograa  twice  (as  Mentioned  earlier).  On’) 

1809  MritelnC the  first  run  enter  here  the  SHORTER  nuaber  of  hours  of'); 

1810  NritelnC search  object  drift.  On  the  second  run,  or  if  two  runs  are’) 

1811  MritelnCnot  applicable,  enter  here  the  difference  between  the  Datua’) 

1812  MritelnC  and  LKP  tines  as  requested  above:'); 

1813  repeat  {until  valid  HoursElapsed  response) 

1814  NriteCElAPSED  HOURS  =>  ’); 

1815  readln(HoursElapsed); 

1816  Mriteln 

1817  until  HoursElapsed  )  0; 

1818 
1819 


UindPeriods; 


1820  AeriodTiaes; 

1621  InputSeaWindsj 

1622  IfindLatCoeffs; 

1623  tfindCurrent ; 

1624  AugSurfaceWindj 

1825  LeewayDriftj 

1826  SaaCurrentj 

1627  Batua; 

1826  iiriteToOisk; 

1829 

1636  CLfiSCR; 

1631  mriteln; 

1832  witelni'A  record  of  significant  input  and  output  data  used  during  this’); 

1633  mriteln  ('program  run  is  stored  in  an  external  file  naaed  "SEADATAV ) ; 

1634  mritelnPlf  you  desire  to  keep  this  record  permanently,  please  rename’); 

1635  MritelnCfile  SEADATA  before  running  this  program  again!') 

1836 

1637  end  {Ocean  Current  calculations) 

1638  end  {program  run) 

1639  end.  {main  program) 


Surface  Drift  Determination  Prog raa  (IS  of  3) 
Variable  ft  Operator  Cross-fteference  Listing 


Variable  Program  ki"S  fegber 


MdVectors 

729 

849 

872 

934 

1273 

1324 

RvgSurfaceWind 

914 

1824 

flvgWindFroe 

11B 

739 

743 

744 

747 

748 

751 

752 

753 

858 

873 

936 

1275 

1326 

AvgWindTo 

119 

752 

7  J 

935 

BrgRads 

838 

843 

844 

845 

866 

867 

868 

917 

927 

928 

929 

1228 

1241 

1242 

1243 

1244 

1245 

1246 

1251 

1252 

12S3 

1268 

1261 

1262 

1266 

1267 

1268 

1286 

1287 

1288 

1293 

1294 

1295 

1381 

1382 

1383 

1312 

1313 

1314 

1318 

1319 

1328 

continue 

97 

883 

951 

1336 

1349 

1397 

1713 

1767 

1769 

1771 

1773 

1795 

1797 

1799 

count 

288 

283 

284 

287 

287 

DateTiae 

214 

225 

231 

235 

235 

242 

246 

246 

253 

Datua 

12% 

1827 

DatuaDateTiae 

128 

383 

384 

387 

1713 

DatuaMonth 

181 

365 

366 

366 

369 

369 

1713 

DatuaYear 

102 

373 

1713 

Days 

183 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

498 

535 

558 

1714 

DaysInHonth 

441 

497 

534 

555 

DegreesLat 

184 

331 

655 

773 

781 

888 

1714 

DirSeaCurrent 

121 

1145 

1146 

1146 

1241 

1286 

1485 

1486 

1487 

1488 

1489 

1714 

DirSurfWind 

122 

936 

948 

1591 

1592 

1593 

1594 

1595 

1715 

DirTidalCurrent 

123 

1283 

1284 

1284 

1287 

1266 

1318 

1666 

1667 

1668 

1669 

1670 

1715 

DirTotalCurrent 

124 

1185 

1186 

1186 

1189 

1239 

1251 

1282 

1381 

1411 

1505 

1512 

1513 

1514 

1515 

1516 

1715 

OnaxDir 

125 

1275 

1331 

1695 

1696 

1697 

1698 

1699 

1716 

DaaxDistance 

127 

1276 

1333 

1701 

1716 

OsinDir 

128 

1326 

1338 

1690 

1691 

1692 

1693 

1694 

1716 

DainDi stance 

128 

1327 

1332 

1700 

1717 

DriftDirUncertain 

959 

1128 

HoursE lapsed 

107 

417 

938 

1717 

1815 

1817 

HoursRetnaining 

400 

417 

418 

423 

426 

426 

430 

431 

433 

HoursMindEffect 

164 

406 

488 

410 

412 

414 

417 

425 

438 

852 

926 

1439 

1582 

1738 

I 

105 

479 

543 

546 

546 

549 

549 

550 

550 

551 

551 

552 

552 

553 

558 

559 

559 

562 

564 

569 

569 

570 

570 

572 

612 

615 

615 

617 

618 

619 

620 

621 

622 

626 

627 

628 

632 

634 

635 

639 

639 

640 

648 

642 

652 

659 

661 

661 

661 

662 

770 

789 

793 

794 

795 

795 

798 

799 

800 

801 

018 

010 

829 

835 

841 

841 

842 

842 

843 

844 

845 

AAA 

CnO 

850 

851 

852 

852 

852 

864 

866 

867 

868 

916 

924 

926 

926 

926 

927 

928 

929 

1487 

1415 

1418 

1424 

1425 

1426 

1427 

1428 

1429 

1432 

1433 

1437 

1437 

1439 

1441 

1441 

1539 

1576 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1735 

1735 

1736 

1738 

1739 

1741 

1742 

InputSeaUir.ds 

579 

1821 

J 

105 

479 

510 

513 

517 

517 

528 

520 

525 

527 

527 

528 

535 

536 

567 

569 

569 

578 

570 

581 

586 

589 

590 

591 

592 

593 

594 

595 

596 

600 

601 

601 

685 

607 

667 

637 

639 

639 

640 

640 

675 

708 

788 

829 

839 

841 

841 

841 

842 

842 

842 

043 

844 

845 

1407 

1422 

1424 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1735 

1735 

1740 

1741 

1742 

1742 

K 

105 

1741 

1741 

LastDateTiw 

129 

306 

307 

389 

1566 

1567 

1569 

1717 

LastDay 


lea  318  311  405  498  500  1718 


List Degree 

1540 

1548 

1549 

1551 

1551 

1552 

1557 

1558 

1559 

1559 

1560 

Last  Hcwr 

109 

311 

405 

405 

406 

487 

407 

408 

409 

409 

410 

411 

411 

412 

413 

414 

486 

487 

487 

489 

409 

491 

491 

494 

494 

1718 

LastLatitudeKnotm 

130 

326 

327 

327 

338 

338 

331 

1548 

1549 

1718 

LastLongitudeKnown 

131 

345 

346 

346 

349 

349 

1557 

1558 

1719 

Last Minute 

1541 

1549 

1553 

1553 

1554 

1558 

1561 

1561 

1562 

UstNonth 

110 

281 

282 

282 

285 

285 

497 

532 

532 

555 

1567 

1569 

1719 

LastYear 

111 

290 

449 

1567 

1569 

1719 

LatNS 

98 

317 

319 

319 

319 

319 

320 

320 

320 

320 

656 

777 

779 

783 

1555 

1720 

LeapYearCheck 

443 

450 

451 

LeemyBrg 

132 

935 

971 

972 

973 

975 

976 

977 

1075 

1123 

1720 

LeemyDrift 

1004 

1825 

LeewayMethod 

112 

1043 

1044 

1044 

1047 

1081 

1128 

1306 

1682 

1619 

1636 

1720 

lines 

198 

204 

LongEU 

99 

336 

338 

338 

338 

338 

339 

339 

339 

339 

1563 

1720 

■ax 

94 

164 

171 

188 

193 

1736 

HaxDirUindCurrent 

133 

857 

873 

886 

1244 

1448 

1449 

1450 

1451 

1452 

1721 

MaxDivergence 

113 

968 

969 

969 

971 

972 

973 

975 

976 

977 

1640 

1722 

MaxHoursDrift 

114 

992 

993 

996 

1071 

1072 

1076 

1077 

1096 

1097 

1125 

1157 

1196 

1685 

1623 

1643 

1722 

NaxLwBrg 

135 

976 

977 

1875 

1123 

1260 

1609 

1610 

1611 

1612 

1613 

1614 

1627 

1628 

1629 

1630 

1631 

1650 

1651 

1652 

1653 

1654 

1723 

MaxLaeOistancc 

137 

997 

1077 

1125 

1261 

1262 

1616 

1633 

1656 

1723 
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MaxLeeSpeed 

139 

985 

986 

996 

1864 

1865 

1877 

1105 

1106 

1125 

1687 

1624 

1642 

1724 

MaxSeaCurrDist 

141 

1157 

1242 

1243 

1495 

1508 

1725 

NaxTideDistance 

143 

1211 

1212 

1264 

1267 

1268 

1663 

1675 

1725 

MaxTotCurrDist 

145 

1196 

1252 

1253 

1522 

1527 

1688 

1726 

HaxNindCurrDist 

147 

858 

874 

888 

888 

887 

1245 

1246 

1457 

1462 

1727 

Mi  nOirUind Current 

134 

899 

988 

988 

902 

1291 

1293 

1721 

NinHoursDrift 

115 

1888 

1889 

1124 

1155 

1156 

1195 

1195 

1454 

1492 

1519 

1622 

1722 

MinLeeBrg 

136 

972 

973 

1312 

1645 

1646 

1647 

1648 

1649 

1723 

MinLeeDistance 

138 

996 

997 

1876 

1124 

1313 

1314 

1615 

1632 

1655 

1724 

MinLeeSpeed 

148 

1856 

1857 

1876 

1128 

1121 

1124 

1686 

1724 

MinSeaCurrDist 

142 

1156 

1284 

1287 

1288 

1499 

1725 

HinTideDistance 

144 

1216 

1217 

1316 

1319 

1328 

1671 

1674 

1726 

HinTotCurrDist 

146 

1195 

1382 

1383 

1526 

1726 

NinWindCurrDist 

148 

985 

986 

1294 

1295 

1461 

1727 

MonthBefore 

488 

532 

533 

534 

N 

186 

416 

422 

422 

425 

438 

541 

572 

610 

642 

835 

855 

864 

924 

1415 

1576 

1727 

No 

15 

692 

1732 

PeriodTiaes 

477 

1828 

Period Vectors 

193 

858 

851 

852 

852 

857 

85 8 

866 

867 

868 

1437 

1437 

1441 

1441 

1742 

radians 

95 

736 

843 

866 

927 

1241 

1244 

1251 

1268 

1266 

1286 

1293 

1381 

1312 

1318 

RecordCurrents 

1485 

1661 

ItesultMagnitude 

149 

757 

851 

874 

937 

1276 

1327 

1728 

SeaCurrSpwd 

158 

1151 

1152 

1156 

1157 

1491 

1728 
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SeaCurrent 


1136  1826 


159  1417 
1429  1430 
1440  1441 
1457  1461 
1476  1478 
1494  1495 
1515  1516 
1550  1551 
1562  1563 
1579  1580 
1592  1594 
1606  1607 
1622  1623 
1638  1639 
1651  1653 
1670  1673 
1689  1691 
1704  1705 


1418  1419 
1431  1432 
1442  1443 
1462  1465 
1479  1482 
1499  1500 
1517  1518 
1552  1553 
1563  1567 
1581  1582 
1595  1596 
1608  1609 
1624  1625 
1640  1641 
1654  1655 
1674  1675 
1693  1694 
1706 


1420  1424 
1433  1435 
1444  1447 
1466  1467 
1484  1486 
1507  1508 
1521  1522 
1554  1555 
1569  1570 
1583  1584 
1597  1598 
1611  1613 
1626  1628 
1642  1643 
1656  1659 
1679  1680 
1696  1698 


1425  1426 
1436  1437 
1449  1451 
1468  1472 
1488  1489 
1509  1510 
1526  1527 
1555  1559 
1571  1574 
1585  1586 
1600  1601 
1614  1615 
1630  1631 
1644  1646 
1660  1665 
1685  1686 
1699  1700 


1427  1428 
1438  1439 
1452  1456 
1473  1475 
1490  1491 
1511  1513 
1544  1545 
1560  1561 
1575  1578 
1589  1590 
1604  1605 
1616  1621 
1632  1633 
1648  1649 
1667  1669 
1687  1688 
1701  1703 


rrr 

ValidAnstiers 

157 

698 

719 

1732 

1769 

1797 

VelocityCwponent 

171 

926 

928 

929 

1586 

1739 

VerifyDTS 

214 

387 

384 

VerifyWinds 

672 

886 

Warranty 

1347 

1745 

UindChart 

65* 

682 

712 

HindCheck 

674 

679 

688 

690 

692 

717 

719 

WindCoeffs 

177 

661 

662 

705 

706 

707 

708 

794 

795 

795 

799 

888 

801 

818 

841 

842 

1430 

1431 

1735 

WindCurrent 

827 

1823 

UindError 

676 

679 

697 

699 

699 

701 

705 

706 

707 

708 

UindLatCoeffs 

768 

1822 

WindPeriods 

398 

1819 

UindsOverTiae 

188 

485 

486 

488 

490 

492 

500 

581 

585 

506 

513 

517 

517 

520 

528 

525 

527 

527 

528 

535 

536 

549 

549 

550 

550 

551 

551 

552 

552 

553 

558 

559 

559 

562 

564 

569 

569 

578 

578 

589 

590 

591 

592 

593 

594 

595 

596 

608 

601 

601 

685 

607 

687 

617 

618 

619 

620 

621 

622 

626 

627 

628 

632 

634 

635 

639 

639 

640 

640 

841 

841 

842 

842 

843 

844 

845 

926 

927 

1424 

1425 

1426 

1427 

1428 

1429 

1432 

1433 

1578 

1579 

1580 

1581 

1583 

1584 

1585 

1741 

iritelns 

198 

293 

298 

313 

351 

584 

709 

722 

775 

885 

884 

888 

932 

942 

949 

1008 

1045 

1108 

1139 

1175 

1198 

1271 

1274 

1325 

1334 

1338 

1339 

1746 

1754 

1764 

1774 

1776 

1792 

1801 

1886 

1830 

WriteToDisk 

1537 

1828 

Xcoaponent 

729 

736 

739 

740 

741 

745 

757 

757 

759 

831 

837 

844 

844 

849 

863 

867 

867 

872 

918 

922 

928 

928 

934 

1231 

1237 

1242 

1245 

1245 

1252 

1257 

1261 

1261 

1267 

1273 

1280 

1287 

1294 

1294 

1302 

1308 

1313 

1313 

1319 

1319 

1324 
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Ycoaponent 


Yes 

Operator 
arc tan 
assign 
char 
close 
cos 

input 

integer 

output 
read 
read In 

real 

rewrite 

round 

sin 

sqrt 

text 


729 

736 

739 

740 

741 

745 

757 

757 

760 

832 

637 

845 

845 

849 

863 

868 

668 

872 

919 

922 

929 

929 

934 

1232 

1237 

1243 

1246 

1246 

1253 

1257 

1262 

1262 

1268 

1273 

1260 

1268 

1295 

1295 

1303 

1303 

1314 

1314 

1320 

1320 

1324 

156 

1732 

1771 

1799 

Prooraa  Line  Nuiber 

736 

1544 

99 

157 

674 

1349 

1706 

645 

868 

929 

1243 

1246 

1253 

1262 

1268 

1288 

1295 

1383 

1314 

1328 

92 

116 

164 

198 

200 

400 

441 

480 

581 

652 

675 

676 

770 

829 

916 

1407 

1539 

92 

788 

231 

242 

253 

281 

290 

306 

317 

326 

336 

345 

365 

373 

383 

680 

605 

626 

632 

688 

697 

717 

794 

799 

883 

899 

905 

951 

968 

985 

992 

1043 

1056 

1064 

1071 

1088 

10% 

1105 

1120 

1145 

1151 

1172 

1185 

1192 

1203 

1211 

1216 

1336 

1397 

1767 

1795 

1815 

153 

171 

177 

188 

193 

214 

219 

267 

444 

729 

731 

832 

919 

1232 

1541 

1545 

311 

406 

408 

410 

412 

414 

1549 

1558 

844 

867 

928 

1242 

1245 

1252 

1261 

1267 

1287 

1294 

1302 

1313 

1319 

757 

159 

D-79 


u 


v 


1025 

1628 

1630 

1631 

1633 

1638 

1640 

1642 

1643 

1651 

1053 

1654 

1656 

1660 

1667 

1669 

1670 

1675 

1680 

1686 

1687 

1688 

1696 

1698 

1699 

1701 

1704 

1705 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1768 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1796 

1803 

1804 

1805 

1807 

1808 

1809 

1810 

1811 

1812 

1816 

1831 

1832 

1833 

1834 

1835 
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0005 

AAAC 

wWj 

0007 


TITLE:  flHEA.COM  (Search  Area  Determination  Algorithm) 

VERSION:  1.0  for  CP/M  Operating  System 

DATE  URITTEN:  August  1984 


0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 


DESCRIPTION: 

-  User  asked  for  search  object's  last  known  position 
latitude  and  longitude 

-  User  asked  to  input  search  object's  aerospace  (if 
applicable)  and  surface  drift  vectors,  previously- 
calculated  in  Search  Planning  Software  Programs  II 
and  12 

-  User' asked  to  input  confidence  factors,  navigational 
fix  and  dead-reckoning  errors,  and  search  number,  as 
prescribed  in  the  National  Search  and  Rescue  Manual 

-  Program  calculates  search  area  radius,  square  miles, 
and  the  latitudes  and  longitudes  of  the  center  and 
four  corner  points.  Then  it  creates  an  "audit  trail”/ 
record  file  of  program  input,  significant 
calculations,  and  output,  named  "AREADATA" 

LICENSE:  COPYRIGHT  1984  D.  RICK  DOUGLAS 

The  author  makes  no  express  or  implied  warranty  of  any 
kind  with  regard  to  this  program  material,  including,  but 
not  limited  to,  the  implied  warranty  of  fitness  for  a 
particular  purpose.  The  author  shall  not  be  liable  for 
incidental  or  consequential  damages  in  connection  with  or 
arising  out  of  furnishing,  use,  or  performance  of  this 
program.  The  reader  MUST  HAVE  a  solid  understanding  of 
search  and  rescue  methodology  before  using  this  software 
in  making  decisions  where  human  life  is  at  risk.  In  fact, 
since  no  amount  of  testing  can  uncover  100%  of  program 
errors,  this  program  is  recommended  for  training  use  only. 
Prior  attendance  at  the  United  States  Coast  Guard's 
National  GAR  School  is  highly-encouraged. 

THIS  SOFTWARE  MAY  BE  FREELY-DISTRIBUTED 
PROVIDED  NO  FEE  IS  CHARGED  AND 
THIS  COPYRIGHT  NOTICE  IS  RETAINED. 


LANGUAGE:  PASCAL 

USED  :  Borland  International,  TURBO. PAS,  Version  2.0 


Position 

AeroSurfVectors 


D-82 


0052  (#  AreaSearch  •) 
0053  <*  Find  Coordinates  *) 
0054  (*  NewCoordinates  (Aerospace  Drift  Vector  Position;  OPT)  «) 
0055  (•  NewCoordinates  (Dsax  Surface  Drift  Position)  *) 
0056  (•  NewCoordinates  (Dain  Surface  Drift  Position)  •) 
0057  (•  NewCoordinates  (Search  Area  Center  Point)  •) 
0058  (*  FindXYsToCorner  •) 
0059  (»  NewCoordinates  (Upper  Right  Corner  Position)  *) 
0060  (*  NewCoordinates  (Lower  Left  Corner  Position)  •) 
0061  (*  WriteToDisk  <) 
0062  (*  •) 


0055 

0066 

0067  prograw  SearchArea(input,output); 

0068 

0069  const  radians  -  57.2957795;  {Standard  radian  conversion  factor) 

0070 

0071  var  LatNS,  {Indicates  whether  latitude  is  North  or  South) 

0072  LongEW  :  char;  {Indicates  whether  longitude  is  East  or  West) 

0073 

0074  SearchNuaber  :  integer;  {Indicates  which  search  is  being  calculated) 

0075 

0076  AeroConfidence,  {Aerospace  vector  drift  error  confidence  factor) 

0077  AeroDriftDistance,  {Total  aerospace  drift  vector  distance) 

0078  A eroError,  {Aerospace  vector  drift  error) 

0879  DatusLatitude,  {Latitude  of  search  area  center  point) 

0080  DatumLongitude,  {Longitude  of  search  area  center  point) 

M81  DirAeroDrift,  {Total  aerospace  drift  vector  direction) 

0082  DistBetNeen,  {Distance  between  computed  surface  drift  vectors) 

0083  DnaxDir,  {Maximum  combined  surface  drift  direction) 

0084  DminDir,  {Minimum  combined  surface  drift  direction) 

0285  DraaxOi stance,  {Maximum  combined  surface  drift  distance) 

0286  DminDistance,  {Minimum  coabined  surface  drift  distance) 

0287  DmaxLatitude,  {Latitude  of  Deiax  position) 

0288  DminLatitude,  {Latitude  of  Dmin  position) 

0089  DeaxLongitude,  {Longitude  of  Deax  position) 

0290  Dmir, Longitude,  {longitude  of  Dain  position) 

0091  DRerrorSearcher,  {Search  craft  navigational  fix  error) 

0292  FixErrorSearcher,  {Search  craft  dead*reckoning  error) 

0293  LastLatitudeKnown,  {Last  known  latitude  of  aerospace  object) 

0094  LastLongitudaKnown,  {Last  known  longitude  of  aerospace  object) 

0295  LatAeroDrift,  {Latitude  of  original  position  ♦  Aerospace  vector) 

2296  LatLwrleftCorner,  {Latitude  of  search  area’s  lower  left  corner) 

0097  LatlwrRtCorner,  {Latitude  of  search  area’s  lower  right  corner) 

0298  LatUprleftCorner,  {Latitude  of  search  area’s  upper  left  corner) 

0099  LatUprRtCorner,  {Latitude  of  search  area's  upper  right  corner) 

0120  LongAeroDrift,  {Longitude  of  original  position  +  Aerospace  vector) 

0101  LongLwrleftCorner,  {Longitude  of  search  area’s  lower  left  corner) 

0122  LongLwrRtCorner,  {Longitude  of  search  area's  lower  right  corner) 

0103  LongUprleftCorner,  {Longitude  of  search  area’s  upper  left  corner) 


zm 

LongllprRtCorner, 

{Longitude  of  search  area’s  upper  right  corner) 

0105 

KaxSurfaceError, 

{Maxixus  surface  vector  drift  error) 

0106 

NinSurfaceError, 

{Miniau*  surface  vector  drift  error) 

0107 

NewLatitude, 

{Sua  of  previous  latitude  +  displacement  vector) 

0108 

NewLongitude, 

{Sua  of  previous  longitude  +  displacesent  vector) 

0109 

ObjectDRerror, 

{Search  object  dead-reckoning  determination  error) 

0110 

ObjectFixError, 

{Search  object  navigational  fix  deteraination  error) 

0111 

PreviousDriftErrs, 

{Sum  of  previously-computed  drift  errors) 

0112 

flreaOf Search, 

{Total  search  area  in  nautical  ailesA2) 

0113 

SearchRadius, 

{TotProbableErr  *  SearchNuaber  (Safety  Factor)) 

0114 

SurfaceMiniMax, 

{Surface  drift  error  ainiaax  distance) 

0115 

SurfConfidence, 

{Surface  vector  drift  error  confidence  factor) 

0116 

TotalDriftError, 

{Sua  of  aerospace  and  surface  drift  errors) 

0117 

TotObjectErr, 

{Search  object  navigational  fix  +  DR  error) 

0118 

TotProbableErr, 

{Total  probable  search  area  error) 

0219 

TotSearcherErr  :  real j 

(Search  craft  navigational  fix  +  DR  error) 

0120 

0121 

ftreaOat  :  text;  {External  record  file  of  prograa  input/output  data) 

0122 

0123 

{WWHHHWHHHWHHHWHIHmumHHHHHtiHUHHHHHHHHml 

8124 

{Writes  out  a  specified  nuuber  of  blank  lines;  can  be  used  to  clear  screen.  > 

0125 

0126 

procedure  writelns  (lines  : 

integer); 

0127 

0128 

var  count  :  integer; 

0129 

0130 

begin 

0131 

count  :=  0; 

0132 

while  lines  >  count  do 

8133 

begin 

0134 

writeln; 

0135 

count  :«  count  +  1 

0136 

end 

0137 

end; 

0138 

0139 

0140 

{Queries  user  for  last  known  position  latitude  and  longitude.  > 

0141 

0142 

procedure  Position; 

0143 

0144 

begin  {Position) 

0145 

0146 

writelns(24) ; 

0147 

repeat  {until  valid  latitude) 

0148 

writelnCWas  search  objecf’s  last  known  latitude  north  or  south?’ ); 

0149 

write(’ (Enter  N  or  S) 

Pnswer=>  1 ); 

0150 

readln(LatNS) ; 

0151 

writeln 

0152 

until  (LatNS  =  ’N’>  or  (Lat.NS  =  ’n’>  or  (LatNS  =  ’S’)  or  (LatNS  =  >s’>; 

0153 

if  (LatNS  =  ’N’)  or  (LatNS  =  ’n’)  then  LatNS  :=  ’N’  else  LatNS  :=  ’S’; 

0154 

0155 

repeat  {until  valid  latitude) 

D-84 


0156  writelnl'Please  enter  the  search  object” s  last  known  latitude  ’); 

0157  writelnC  (For  example:  25-Degrees  45-Minutes  13-Seconds  =  25.4513)’) 5 

0158  writeCLATITUDE  =)  ’); 

0159  readln (LastLatitudeKnown); 

0180  if  (LastLatitubeKnown  (  0)  or  (LastLatitudeKnown  >  90)  then 

0181  writelnC  Input  latitude  sust  be  between  0-90.  Try  again!’); 

0162  writeln 

0163  until  (LastLatitudeKnown  )=  0)  and  (LastLatitudeKnown  <=  90); 

0184 

0185  repeat  {until  valid  longitude) 

0188  writeln(’Uas  search  object”s  last  known  longitude  east  or  west?'); 

0167  write!’ (Enter  E  or  H)  Answer*)  '); 

0188  readln(LongEW) ; 

0169  writeln 

0170  until  (LongEW  =  ’E’)  or  (LongEW  =  ’e’)  or  (LongEW  =  ’ W’ )  or  (LongEW  =  ’w’); 

0171  if  (LongEW  =  ’EM  or  (LongEW  =  ’e')  then  LongEW  :=  ’E’  else  LongEW  :=  ’W’; 

0172 

0173  repeat  (until  valid  longitude) 

0174  writelnC  Please  enter  the  search  object”s  last  known  longitude  ’); 

0175  writelnC (For  example:  160-Degrees  45-Minutes  13-Seconds  5  180.4513)’); 

0176  write (’ LONGITUDE  =)  ’); 

0177  readln (LastLongitudeKnown) ; 

0178  if  (LastLongitudeKnown  <  0)  or  (LastLongitudeKnown  )  160)  then 

0179  writelnC Input  longitude  oust  be  between  0-160.  Try  again!'); 

0180  writeln 

0181  until  (LastLongitudeKnown  )=  0)  and  (LastLongitudeKnown  (=  188) 

8182 

0183  end;  (Position) 

0184 

01 85  (WHHHHHHHHHHHHmHHmWWWHWmHWHWHHHmHm) 
0186  (Queries  user  for  previously-calculated  Aerospace  and  (Max  t  Min)  Surface  ) 
0187  (Drift  vectors.  ) 

0188 

0183  procedure  AeroSurfVectors; 

0199 

0191  var  aerodrift  :  char;  (Indicates  if  aerospace  drift  vector  used  in  problem) 
0192 

0193  begin  (AeroSurfVectors) 

0194 

0195  writelns(24); 

0198  repeat 

0197  writelnCDid  you  previously  calculate  an  aerospace  drift  vector  '); 

0198  writeCfor  this  problem?  (y/n): ’); 

0199  readln (aerodrift) 

0200  until  (aerodrift  =  ’Y’)  or  (aerodrift  =  ’y’)  or 
0201  (aerodrift  =  'N')  or  (aerodrift  =  ’ r.' ) ; 

0202  writeln; 

0203 

0204  (Start  of  calculations  to  find  Aerospace  Drift  Error) 

0205  if  (aerodrift  =  ' Y’ )  or  (aerodrift  5  ’y’)  then 

0208  begin  (Aerospace  drift  vector  previously-calculated) 

0207 


8208  writelnP Please  enter  the  previously-calculated,'); 

8209  repeat  {until  valid  response) 

8210  write (’TOTAL  AEROSPACE  DRIFT  DIRECTION  =>  ’>; 

8211  readln(DirAeroDrift) 

8212  until  (DirAeroDrift  )=  8)  and  (DirAeroDrift  (=  368); 

8213  writeln; 

8214 

8215  writelnP Please  enter  the  previously-calculated’); 

8216  writePTOTAL  AEROSPACE  DRIFT  DISTANCE  =>  ’); 

8217  readln(AeroDriftDistance); 

8218  writeln; 

8219 

8220  writeP  Refer  to  the  'Individual  Drift  Error*  '); 

8221  writelnP section  in  the  National  SAR'); 

0222  write!’ Manual  (approx isately  page  8-27).  '); 

0223  writelnP  Please  enter  the  desired’); 

8224  write (’Aerospace  Drift  Error  Confidence  Factor  '); 

0225  writelnP  (e.g,  0.125,  0.3,  etc.):’); 

8226 

0227  repeat  {until  8<AeroConfidence(l  > 

0228  writePAEROSPACE  DRIFT  ERROR  CONFIDENCE  FACTOR  =>  ’) 

8229  readln(AeroConfidence) 

0230  until  (AeroConfidence  )  0)  and  (AeroConfidence  (1); 

0231  writeln; 

0232 

0233  AeroError  :=  AeroDriftDistance  *  AeroConfidence 

0234  end;  {Aerospace  drift  vector  previously-calculated) 

0235  {End  of  calculations  to  find  Aerospace  Drift  Error) 

8236 

8237  writelns(24); 

0238  writelnPPlease  enter  the  sue  of  previous  drift  errors’); 

0239  writelnP  (Enter  a  zero  if  not  applicable):’); 

0240  writePSUN  OF  DRIFT  ERRORS  *>  '); 

0241  readln(PreviousDriftErrs); 

8242  writeln; 

8243 

8244  writelnPPlease  enter  the  previously-calculated,'); 

8245  repeat  {until  valid  response) 

0246  writePMNIMUN  TOTAL  SURFACE  DRIFT  DIRECTION  =)  ’); 

0247  readln(DainDir) 

0248  until  (CninDir  )=  0)  and  (DainDir  <-  368); 

0249  writeln; 

8250 

8251  writelnPPlease  enter  the  previously-calculated,’); 

8252  write PNINIMUN  TOTAL  SURFACE  DRIFT  DISTANCE  =>  »); 

0253  readln(DninDistance) ; 

0254  writeln; 

8255 

8256  writelnPPlease  enter  the  previously-calculated,’); 

0257  repeat  {until  valid  response) 

8258  writePKAXIHUM  TOTAL  SURFACE  DRIFT  DIRECTION  =>  ’>; 

0259  readln(DwaxDir) 


8260 

8261 

8262 

8263 

8264 

8265 

8266 

8267 

8268 

8269 

8270 

8271 

8272 

8273 

8274 

8275 

8276 

8277 

8278 

8279 
0280 
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8282 

8283 

8284 
0285 
8286 

8287 

8288 
8289 
8298 
8291 
0292 
0293 
0294 
0295 

8296 

8297 

8298 

8299 

8380 

8381 

8382 

8383 

8384 

8385 
8306 

8387 

8388 

8389 
8318 
8311 


until  (DoaxDir  )=  0)  and  (DaaxDir  (=  368); 

Mriteln; 

Mriteln  (’Please  enter  the  previously-calculated,'); 

MriteONAXIKUM  TOTAL  SURFACE  DRIFT  DISTANCE  =>  ’); 
readln(DaaxDistance) ; 

Mriteln; 

mriteln ('Please  enter  the  eeasured  distance  betHeen  the  tHo,  previously-'); 
MritelnCcalculated,  Total  Surface  Drift  Distance  positions:'); 
rn-iteC DISTANCE  BETWEEN  SURFACE  DRIFT  POSITIONS  =>  ’); 
readln(DistBetMeen) ; 
mriteln 

end;  {AeroSurfVectors) 


{When  given  X  (  Yet* po rents  and  a  reference  latitude/longitude  by  the  calling) 
{procedures  FindCoordinates  and  FindXYsToCorner,  this  procedure  calculates  ) 
{the  updated  position's  latitude/longitude.  > 


procedure  NetCoordinatestvar  Xcoaponent,  Ycoaponent  :  real; 

TeopLatitude,  TeapLongitude  :  real); 


var  Deci sal Latitude, 
DecioalLongitude, 
TeMp, 

TeopDegree, 

TempDenoo, 

TeopNin, 

TeopttinSee, 

TeopSec  :  real ; 


{Latitude  converted  fro*  Deg-Min-Sec  to  deciaal) 
{Longitude  converted  fro*  Deg-Min-Sec  to  deciaal) 
{Interia  ter*  used  in  calculations) 

{Interia  tera  for  position  in  degrees  only) 
{Interia  tera  for  denoainator) 

{Interia  tera  for  position  in  ainutes  only) 
{Interia  term  for  position  ainutes  and  seconds) 
{Interia  ter*  for  position  in  seconds  only) 


begin  {NeMCoordinates) 

{initialize  variables) 

Teap  :=  8.8;  TeapDegree  :=  0.0;  TeopDenoe  :=  0.0;  TeapMin  :-  0.0; 
TeopMirtSec  :=  0.0;  TeopSec  :=  8.0; 


{Convert  X  t  Yconponent  sign  values  if  LatNS  =  N  or  LongEU  =  M) 
if  LatNS  =  *N’  then  Xcoaponent  :=  Xcoaponent  #  -1.0; 


{Convert  passed  latitude  to  deciaal) 

TeopDegree  :=  trunc(TeopLatitude) ; 

TenpNinSec  ;=  TeepLatitude  -  TeopDegree; 

OecioalLatitude  :=  TeapDegree  +  TenpflinSec  *  (1  +  2/3); 

{Coobine  passed,  deciaal  latitude  and  vector  to  find  neo,  deciaal  latitude) 
Ycoaponent  :=  Ycoaponent  /  60; 

TeopLatitude  :=  OecioalLatitude  ♦  Ycoaponent; 


{Convert  new,  deciaal  latitude  to  degrees-ainutes-seconds) 
TeapDegree  :=  trunc(TenpLatitude); 

TeopMinSec  :=  TeopLatitude  -  TeapDegree; 
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Trap  :=  TeapMinSec  •  68; 

TeapMin  :=  trunc(Teap); 

Tea p Bee  :=  (Temp  -  TeapMin)  *  68; 

NeoLatitude  :=  TeapDegree  +  TetpMin/100  *  TeapSec/ 10000; 

{Convert  passed  longitude  to  deciaal} 

TeapDegree  :=  trunc(TeapLongitude) ; 

TeapMinSec  :=  TespLongitude  -  TeapDegree; 

DeciaalLongitude  :=  TeapDegree  ♦  TeapNinSec  *  (1  +  S/3); 

{Coobine  decinal-latitude  with  vector  to  find  new,  deciaal  longitude} 
TempDenon  i=  cos  (Tea platitude  /  radians)  «  68; 

Teoplongitude  :=  Xcoaponent  /  TeapDenoa  +  DeciaalLongitude; 

(Convert  new,  deciaal  longitude  to  degrees-ainutes-seconds) 

TeapDegree  :=  trunc(TeapLongitude); 

TeapMinSec’ :=  TenpLongitude  -  TeapDegree; 

Teep  :=  TeopMinSec  *  68; 

TeapMin  :=  trunc(Teap); 

TeapSec  :=  (Temp  -  TeapMin)  *  68; 

NeaLongitude  :=  TeapDegree  +  TeapMin/100  +  TeapSec/10800 

nd;  (NewCoordinates) 


(Finds  the  X  t  Ycooponents  of  the  search-area-center^point-displaceaent-  } 
(vectors  created  by  the  calling  procedure,  FindCoordinates.  Then,  it  passes  > 
(these  coaponents  to  procedure  NeaCoordinates  for  it  to  deteraine  search  area} 
(corner  point  latitudes/longitudes.  } 

procedure  FindXYsToCorner (var  Vectorl,  Vectors  :  integer); 

var  BrgRads,  (Individual  coopass  headings  converted  to  radians} 

Xcoaponent,  (Horizontal  component  of  individual  vectors} 

Ycosponent  :  real;  (Vertical  component  of  individual  vectors} 

begin  (FindXYsToCorner} 

BrgRads  :=  Vectorl  /  radians; 

Xcoaponent  :=  sin(BrgRads)  *  SearchRadius; 

Yconponent  :=  cos(BrgRads)  »  SearchRadius; 

BrgRads  s=  Vectors  /  radians; 

Xcoaponent  :=  Xcoaponent  ♦  sin(BrgRads)  t  SearchRadius; 

Yconponent  :=  Yconponent  +  cos (BrgRads)  *  SearchRadius; 

NewCoordinates (/component,  Ycooponent,  DatunLatitude,  DatuaLongitude) 

end;  (FindXYsToCorner) 


(Calculates  X  l  Ycoeponents  of  aerospace  and  surface  drift  vectors  and  sends  } 
(then  to  procedure  NeaCoordinates  for  it  to  deteraine  the  search  area  center  } 
(point  latitude/longitude.  Next,  this  procedure  creates  too  vectors  (1  t  S),} 
(90-degrees  apart,  and  of  length  equal  to  the  search  area's  radius.  It  sends) 


0364  {these  two  vectors  to  procedure  FindXYsToComer  for  it  to  calculate  the  > 
03S5  {vectors'  X  t  Ycoo  portents  enroute  to  procedure  NewCoordinates,  which  finds  > 
0366  {the  corner  point  latitudes/longitudes.  > 

0367 

0368  procedure  FindCoordinates; 

0363 

0370  var  Vectorl, 

0371  Vector 2 

0372  BrgRads, 

0373  TeapX, 

0374  TetipY, 

0375  Xcoaponent, 

0376  Ycoaponent 

0377 

0378  begin  {FindCoordinates} 

0379  TeapX  :=  0.0;  TeepY  :*  0.0;  {initialize  variables) 

0380 

0381  if  AeroDriftDistance  >  0  then 

0382  begin  {Find  updated  coordinates  of  Aerospace  Drift  Vector  displacement) 

0383  BrgRads  :=  DirAeroDrift  /  radians; 

8384  Xcosponent  :=  sin(BrgRads)  *  AeroDriftDistance; 

0385  Ycoaponent  :=  cos(BrgRads)  *  AeroDriftDistance; 

0386  TeapX  !=  Xcosponent;  TeapY  :=  Ycoaponent;  {Used  below) 

0387  NewCoordinates (Xcoaponent, Ycoaponent, LastLat itudeKncwn, 

0388  LastlongitudeKnown); 

0389  LatAeroDrift  s=  NewLatitude; 

0390  LongfleroDrift  s-  Ne*Lonqi tude 

.0391  end;  {Find  updated  coordinates  of  Aerospace  Drift  Vector  displacement) 

0392 

0393  {Find  updated  coordinates  of  Kaxiaua  Surface  Drift  Vector  displacement) 

0394  BrgRads  :=  DaaxDir  /  radians; 

0395  Xcosponent  TenpX  +  sin(BrgRads)  t  DaaxDistance; 

0396  Ycoaponent  :=  TeapY  ♦  cos (BrgRads)  »  DaaxDistance; 

0397  NewCoordinates(Xcoaponent, Ycoaponent, LastLatitudeKnQwn,LastLongitudeKnown) ; 

0398  DaaxLatitude  :=  NewLatitude; 

0399  DaaxLongitude  s*  Neslongitude; 

0400 

0401  {Find  updated  coordinates  of  Hiniaua  Surface  Drift  Vector  displacement) 

0402  BrgRads  DsinDir  /  radians; 

0403  Xcoaponent  :=  TeapX  +  sin(BrgRads)  *  DainDistance; 

0404  Ycoaponent  j=  TeapY  +  cos (BrgRads)  *  DainDistance; 

0405  NewCoordi nates (Xcoaponent, Ycoaponent, LastLat itudeKnown, LastLongitudeKnown) ; 

0406  DainLatitude  :=  NewLatitude; 

0407  Dairtongitude  :=  NesLongitude; 

0408 

0409  {Find  resultant  X  I  Ycoaponent  of  Aerospace  and  Surface  Daax  and  Dain  vectors) 
0410  BrgRads  i=  DaaxDir  /  radians; 

0411  Xcoaponent  :=  TeapX  ♦  sin(BrgRads)  *  DaaxDistance; 

0412  Ycoaponent  :=  TeepY  ♦  cos(BrgRads)  •  DaaxDistance; 

0413  BrgRads  <*  DainDir  /  radians; 

0414  Xcoaponent  j=  Xcoaponent  +  sin(BrgRads)  •  DainDistance; 

0415  Ycoaponent  :=  Ycoaponent  +  cos(BrgRads)  •  DainDistance; 


{Used  to  find  get  to  search  area  corner  points) 

:  integer;  {Used  to  find  get  to  search  area  corner  points) 

{Individual  coapass  headings  converted  to  radians) 
{Xcoaponent  used  for  interin  calculations  only) 
{Ycoaponent  used  for  interia  calculations  only) 
{Horizontal  component  of  individual  vectors) 

:  real;  {Vertical  coaponent  of  individual  vectors) 


0416 

0417  (Find  search  area  center  point  latitude/longitude) 

0418  NewCoord inat es ( Xcoaponent , Ycoeponent , LastLat it  udeKnown,  LastLongitudeKnown) ; 

8419  DatuaLatitude  :=  Newlatitude; 

0428  DatunLongitude  :=  NewLongitude; 

0421 

0422  {Find  search  area  corner  points  using  perpendicular  vectors  froa  center  point) 
0423  Vectorl  :=  360;  Vector2  :=  090;  {Vectors  to  upper  right  corner) 

0424  FindXYsToComer(Vectorl,Vector2); 

0425  LatUprRt Corner  :=  NewLatitude; 

0426  LongUprRt  Corner  :=  NewLongitude; 

0427 

0428  Vectorl  :=  180;  Vector2  :=  270;  {Vectors  to  lower  left  corner) 

0429  FindXYsToCorner(Vectorl,Vector2>; 

0430  LatLwrLeftCorner  :=  NewLatitude; 

8431  LongLwrLeftCorner  :=  NewLongitude; 

0432 

0433  LatlwrRtCorner  :=  LatLwrLeftCorner;  {Lower  right  comer  coordinates) 

0434  LongLwrRtCorner  :=  LongUprRt Corner; 

0435 

0436  LatUprLeftCorner  :=  LatUprfttCorner;  {Upper  left  corner  coordinates) 

0437  LongUprleftCorner  :=  LongLwrLeftCorner 

0438 

0439  end;  {FindCoordinates) 

0448 

0441  {iHHHHWHHHHWHUHWHHiHHimiiHHHimmnmnwniim} 
0442  {Given  the  search  object’s  aerospace  and/or  surface  drift  vector(s),  this  ) 
8443  {procedure  calculates  the  search  area.  ) 

0444 

8445  procedure  AreaSearch; 

0446 

0447  var  continue  :  char;  {Pauses  prograi  until  user  continues  it) 

0448 

0449  begin  {ftreaSearch) 

0450 

0451  {Start  of  calculations  to  find  Surface  Drift  Error) 

0452  writeinC  Refer  to  the  "Individual  Drift  Error’  section  in  the  National  SflR’ >; 
0453  writeCHanual  (approxixsately  page  8-27).  '); 

0454  writelnl’ Please  enter  the  desired' ); 

0455  writelnl’Surface  Drift  Error  Confidence  Factor  (e.g,  0.125,  0.3,  etc.):'); 
8456 

0457  repeat  {until  0<SurfConfidence(l  ) 

0458  write (’SURFACE  DRIFT  ERROR  CONFIDENCE  FACTOR  =)  ’); 

0459  readln(SurfConfidence) 

0468  until  (Surf Confidence  >  0)  and  (SurfConfidence  (1); 

0461  writeln; 

0462 

0463  NinSurfaceError  :=  DminDistance  t  SurfConfidence; 

0464  NaxSurfaceError  :=  DeaxDistance  *  SurfConfidence; 

0465  SurfaceNiniNax  :=  (NinSurfaceError  ♦  NaxSurfaceError  +  DistBetween  + 

0466  PreviousDriftErrs)  /  2; 

0467  {End  of  calculations  to  find  Surface  Drift  Error) 


8468 

0469  TotalDriftError  :=  AeroEr ror  +  SurfaceMiniNax; 

0470 

0471  wit  el  ns  (24)} 

0472  writeln(’ Refer  to  the  'Initial  Position  Error*  section  in  the  National  SARM 
0473  write (’Manual  (approx iwately  page  8-29).  '); 

0474  writelnCPlease  enter  the  search  object” s’ ); 

0475  writelnl’ Navigational  Fix  Error  (e.g,  0,  S,  10,  or  15  naut.  ei.  radius),’); 

0476  writelnfand,  if  applicable,  the  Navigational  Dead-Reckoning  (DR)  Error’); 

0477  writelnl’  (e.g,  0,  5,  10,  or  15  percent  of  DR  distance  in  naut.  ei.):'); 

0478  write!' SEARCH  OBJECT  NAVISATIONAL  FIX  ERROR  =>  ’); 

0479  rearfln(ObjectFixError); 

0480  writeln; 

0481  write('SEARCH  OBJECT  NAVIGATION®.  DR  ERROR  -)  ’); 

0482  reatfln(ObjectDfierror) ; 

0483  writeln; 

0484  TotObjectErr  :=  ObjectFixError  +  ObjectDRerror; 

0485 

0486  writelns(24); 

0487  writeln ('Refer  to  the  'Search  Craft  Error*  section  in  the  National  SAR’); 

0488  wriieCNanual  (approximately  pace  8-29).  ’); 

0489  writelnCPlease  enter  the  search  craft”s’); 

0490  writeln  (’Navigational  Fix  Error  (e.g,  0,  5,  10,  or  15  naut.  ei.  radius),’); 

0491  writelnCand,  if  applicable,  the  Navigational  Dead-Reckoning  (DR)  Error’); 

0492  writeln (' (e.g,  8,  5,  10,  or  15  percent  of  DR  distance  in  naut.  ei.):'); 

0493  write!' SEARCH  CRAFT  NAVIGATIONAL  FIX  ERROR  =>  *){ 

0494  rearfln(FixErrorSearcher); 

0495  writeln; 

0496  write!’ SEARCH  CRAFT  NAVIGATIONAL  DR  ERJOR  =>  '); 

0497  readln(DRerrorSearcher); 

0498  writeln; 

0499  TotSearcherErr  :*  FixErrorSearcher  +  DRerrorSearcher; 

0500 

0531  TotProbableErr  s=  TotalDriftError  ♦  TotalDriftError; 

0502  TotProbableErr  :=  TotProbableErr  ♦  (TotObjectErr  *  TotObjectErr); 

0503  TotProbableErr  :=  TotProbableErr  +  (TotSearcherErr  *  TotSearcherErr) ; 

0504  TotProbableErr  s=  sqrt  (TotProbableErr) ; 

0505 

0506  writelns(24) ; 

0507  writeln (’You  are  calculating  the  search  area  for:’); 

0508  writeln; 

0509  writeln!'  1  The  first  search’); 

0510  writeln!’  2  The  second  search’ ) ; 

0511  writeln!'  3  The  third  search'); 

0512  writeln!'  4  Hie  fourth  search' ); 

0513  writelnf  5  The  fifth  search'); 

0514  writeln; 

0515  r^eat  (until  valid  resoonse) 

0516  write!’ Input  SEARCH  NUMBER  =>  '); 

0517  readln(SearchNuaber) 

0518  until  (SearchNuwber  )  6)  and  (SearchNueber  (  6); 

8519 


8520  if  SearchNusber  =  1  then  SearchRadius  :=  TotProbableErr  *  1.1 

8521  else  if  SearchNuaber  *  2  then  SearchRadius  :=  TotProbableErr  *  1.6 

8522  else  if  SearchNuaber  =  3  then  SearchRadius  :=  TotProbableErr  *  2.0 

0523  else  if  SearchNuaber  =  4  then  SearchRadius  :=  TotProbableErr  *  2.3 

0524  else  if  SearchNuaber  =  5  then  SearchRadius  :=  TotProbableErr  *  2.5; 

0525  if  (SearchRadius  -  trunc(SearchRadius)  )  )  0  then 

0526  SearchRadius  :=  trunc(SearchRadius)  +  1.0; 

8527  flreaOfSearch  :=  4  *  (SearchRadius  *  SearchRadius); 

8526 

8529  writeln; 

0530  writeln; 

0531  writeln (’PRELIMINARY  INFORMATION:'); 

8532  writelnC - '); 

0533  writelnCSearch  Area  Radius  =  ’,SearchRadius:5:0, '  naut.  ni.'); 

8534  writelnCSearch  Area  *  AreaOfSearch:5:0,'  sq-naut.ei.’); 

8535  writelns(S); 

8536  write  CHIT  iCTJRN  (Once  or  twice,  as  necessary)  TO  CONTINUE'); 

0537  read In (continue); 

0538 

0539  writelns<24) ; 

0540  writelns(4); 

8541  writelnCCalculating  .  .  .  Please  stand  by') 

8542 

0543  end;  {AreaSearch) 

8544 

0545  (mHHHHHmHWIHHHmmJHUHHHHmWHMHHHHWWIHHf 

0546  {Prints  out  record  of  error  adjustaents  to  calculations  of  search  radius  and  > 
0547  {area.  > 

0548 

8549  procedure  UriteToDisk; 

0550 

0551  begin  {UriteToDisk) 

0552  assigntfireaDat, '  AreaData' ) ; 

8553  rewrite (AreaDat ) ; 

0554 


8555  write(AreaDat,' - ’); 

8556  writeln(AreaDat,’ - ’); 

0557  write(AreaDat, ’ DRIFT  COORDINATES  :  ’); 

0558  writeln (AreaDat, 'LATITUDE  LONGITUDE' ) ; 

8559 

8560  write (AreaDat, 'Last  Known  Position  :  '); 

0561  write(AreaDat,LastLatitudeKnown:7:4,'  ’); 

0562  writeln(AreaDat,LastLongitudeKnown:7:4) ; 

0563 

8564  if  AeroDriftDistance  )  0  then 

0565  begin  {Aerospace  vector  known) 

8566  write(AreaDat,’AerosDace  Drift  Position  :  '); 


0567  write(AreaDat,LatAeroDrift:7:4,'  ’); 

0568  writeln(AreaDat,LongAeroDrift:7:4) 

0569  end;  {Aerospace  vector  known) 

8570 

0571  write(AreaDat, 'Surface  Dain  Position  :  ’); 
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write (Are aDat,DainLatitude:7;4,'  ' ) ; 

writelntAreaDat, DainLongitude:7:4) ; 
writetAreaDat,' Surface  Dnax  Position  :  ’); 

write (AreaDat , DaaxLat itude:7:4, '  ’ ) ; 

writelntAreaDat,  DaaxLongitude:7s4); 
writelntAreaDat,'  '); 

writetAreaDat, '  ■  =a ----  a = ====== ===' )  j 

writeln  (AreaDat , '  =i=s=ss==ia==ss=ss=ssssssssss=s*ssii )  • 
writelntAreaDat, 'SEARCH  AREA:'); 
writeln (AreaDat,*  '); 

if  AeroDriftDistance  >  0  then 
begin  (Aerospace  vector  known) 

writetAreaDat, 'Aerospace  Drift  Distance  :  '); 

writelntAreaDat,  AeroDriftDistance:5:2,'  naut. 
writetAreaDat, 'Drift  Error  Confidence  :  '); 

writelntAreaDat, AeroConf idence:5:3) ; 
write (AreaDat, 'Aerospace  Drift  Error  :  '); 

writelntAreaDat, AeroErrori5i2,'  naut.  Bi. 1 ) ; 

writetAreaDat,  ' - ' ) ; 

writelntAreaDat,  ' - • ) 

end;  (Aerospace  vector  known) 


write (AreaDat,* Sue  of  Previous  Drift  Errors  :  '); 

writelntAreaDat, PreviousDrift Errs: 5:2, '  naut.  ai. * ) ; 

write (AreaDat,' Surface  Drift  Distance  :  ',DeinDistance:5:2) ; 

writelntAreaDat,’  naut.  ai.  ',D*axDistance:5:2,'  naut.  ei.M; 

writelntAreaDat, 'Drift  Error  Confidence  :  *,SurfConfidence:5:3) 

writetAreaDat,' Drift  Error  Min  and  flax  :  *,Nin5urfaceError:5:2); 

writelntAreaDat, ’  naut.  ei.  *,MaxSurfaceError:5:2,’  naut.  ai. * ) ; 

writetAreaDat, 'Distance  Between  Dwin/nax  :  *); 

writelntAreaDat, DistBetweens5:2,’  naut.  ei.’); 

write(AreaDat,’ Surface  Drift  Error  Niniwax  : 

writelntAreaDat, Surface«iniMax;5:2,’  naut.  ai.*); 

writetAreaDat,* - * ); 

writelntAreaDat,' - 

write (AreaDat, 'Total  Drift  Error  »  '); 

writelntAreaDat, TotalDriftError:5:2,*  naut.  ai.’); 

writetAreaDat,* - '); 

writeln  (AreaDat,  ’ - * ) ; 

writetAreaDat, 'Object  Navigation  Fix  Error  :  ’); 
writeln(Area9at,ObjectFixError:5:0,*  naut.  ai.’); 
write  (AreaDat, 'Object  Dead-Reckoning  Error  ■.  '); 

writelntAreaDat, 0bjectDRerror:5:2,'  naut.  ai.’); 
writetAreaDat, 'Object  Total  Position  Error  :  '); 

writelntAreaDat, Tot0bjectErr:5(2,'  naut.  ai.’); 

write  (AreaDat ,  ’ - ' ) ; 

writeln  (AreaDat ,  ’ - ' ) ; 
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0644 

0645 

0646 

0647 

0648 

0649 

0650 

0651 

0652 

8653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 

0661 

0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671 

0672 

0673 

0674 

0675 


wite (flreaDat,1 Searcher  Navigation  Fix  Error  :  '); 
writeln(flreaDat,Fix£rrorSearcher:5:0,'  naut. 
write(fireaDat, ’Searcher  Dead-Reckoning  Error  :  '); 

writeln(AreaDat,DRerrorSearcher:5:2, '  naut.  ai.'l; 
write (flreaDat,' Searcher  Total  Position  Error  s  ’>; 
writeln(ftreaDat,TotSearcher£rr:5:2,'  naut.  »i.'); 

write  (flreaDat, ' - -  '  *  5 

writeln(flreaDat,' — - - - -  *5 

write (flreaDat,' Total  Probable  Error  s 

writeln(ftreaDat,TotProbableErr:5:2,'  naut.  wi.1); 


if  SearchNunber  =  1  then 

writeln(flreaDat,' Safety  Factor  s  t«l'l 

else  if  SearchNunber  =  2  then 

writeln(flreaDat,’ Safety  Factor  :  1.6’) 

else  if  SearchNunber  =  3  then 

writeln(ftreaDat, 'Safety  Factor  :  2.0’) 

else  if  SearchNunber  =  4  then 

writeln(fireaDat,’ Safety  Factor  :  2.3') 

else  if  SearchNunber  =  5  then 

writeln(ftreaDat,’Safety  Factor  «  2.5* > 


write  (flreaDat,' - -  ’  * ! 

writeln  (flreaDat, ' - —  1 )  • 

write (flreaDat, 'Search  Radius  '  ’>; 

writeln (flreaDat , SearchRad i us: 5 : 8, '  naut.  ni.1); 
write  (flreaDat, 'Search  Area  ’•  *  >  5 

writeln (flreaDat, RreaOfSearch:5:0,'  naut.  wi.-squared.1 ); 


write  (flreaDat,1 - ~~ 

writeln(ftreaDat, 1 - - 

write (flreaDat, 1  SEARCH  AREA  COORDINATES: 
writeln(ftreaDat,’ LATITUDE  LONGITUDE1 ) ; 


-'»! 

'>! 


write (flreaDat, 'Center  Point  s  ’>! 

write (AreaDat, Datusiatitude:7:4, 1  1 ) } 

writeln  (flreaDat,  Datuid.ongitude:7:4)} 
writeln(flreaDat,'  *); 

write(AreaDat, 'Corner  Point  (Upper  Left)  :  1 > ; 

write (flreaDat , LatUprLef tCorner :7 :4, 1  1 ) 5 

writeln (flreaDat, LongUprLef tCorner : 7:4) ; 

write (flreaDat, 'Corner  Point  (Lower  Left)  :  *>; 

write (flreaDat , LatLwrLef tCorner : 7:4, 1  1 ) ; 

writeln(ftreaDat, LongLwrLeftCorner :7:4) ; 

write(flreaDat, 'Corner  Point  (Upper  Right)  :  ')? 

write(ftreaDat,LatUprRtCorner:7:4,'  1 ) i 

writeln(fireaDat,LongUprRtCorner:7:4) 5 


D-94 


0676  write (AreaDat, 'Corner  Point  (Lower  Right)  :  '); 

0677  write(AreaDat,LatLwrRtCorner:7:4,'  ’I? 

0678  writeln! flreaDat , LongLwrRt  Corner : 7 : 4 ) ; 

0679 

0680  write(flreaDat,  ) ; 

0681  writeln  (flreaDat,  ’==■'■"  ===^=====^==^==========’ ) ; 

0682 

0683  close (flreaDat) 

0684  end;  {WriteToDisk) 

0685 

0687  {Provides  user  with  program  information,  liaitations  on  use  and  license. 
0688 

0689  procedure  Warranty; 

0690 

0691  var  continue  :  char;  {Bogus  read  variable  provides  tine  to  read  warranty} 
0692 

0693  begin  {Warranty) 

0694 

0695  write!’  (HWWWWtfHHt mumic whh1  ) ; 

06%  M'itelnC  ) ; 

0697  write!’ (*  SEARCH  PLANNING  SOFTWARE  *); 


0698  writeln!’ (PROGRAM  13  OF  3)  *)» ); 

0699  write!’  (*  TITLE:  AREA.C0N  (Search  Area  '); 

0700  writelnCDetermination  Algorithm)  *)'); 

0701  write!’ (*  VERSION:  1.0  for  CP/M  '); 

0702  writeln(’Operating  System  *)'); 

0703  write!’ (*  DATE  WRITTEN:  August  1984’ >; 

0704  writeln!’  *)’); 

0705  write!' (♦  LICENSE:  COPYRIGHT  1984’); 

0706  writeln!’  D.  RICK  D0U5LAS  *>’); 


0707  write!’  (hwhh«  hhhhhhwhwwhuhw1  ) ; 

0708  writeln!’«w*««w«*«WMWwm4<Hn#«M)’ ); 

0709  write!’ The  author  nakes  no  express  or  inplied  '); 

0710  writelnCwarranty  of  any  kind  with  regard  to'); 

0711  write (’ this  progran  material,  including,  but  '); 

0712  writelnCnot  United  to,  the  inplied  warranty  of'); 
0713  write!’ fitness  for  a  particular  purpose.  ’); 

0714  writelnCThe  author  shall  not  be  liable  for'); 

0715  write!’ incidental  or  consequential  daaages  '); 

0716  writeln!’ in  connection  with  or  arising  out  of’); 

0717  write!’ furnishing,  use,  or  performance  of  this  '); 

0718  writeln!’ prograe.  The  reader  IWST  HAVE  a  solid’); 

0719  write!’ understanding  of  search  and  rescue  ’); 

0720  writeln!’ methodology  before  using  this  software  in'); 
0721  write (’making  decisions  where  human  life  is  at  ’); 

0722  writeln!' risk.  In  fact,  since  no  amount  of'); 

0723  writeCtesting  can  uncover  100%  of  program  '); 

0724  writeln!’ errors,  this  program  is  recommended  for'); 
0725  write (’training  use  only.  Prior  attendance  '); 

0726  writeln!' at  the  United  States  Coast  Suard”s’>; 
0727  writeln!’ National  SAR  School  is  highly-encouraged.'); 


0728  Nriteln; 

0729  write  ('  (hwhhwhuhhhhhih1  )  • 

0730  writelnC  WARNING!  WHHmtwwmmwiHWHl'); 

0731  write(’ (*  THIS  SOFTWARE  HAY  BE  FREELY-’ ) j 

0732  writelnC DISTRIBUTED  PROVIDED  NO  FEE  *>»); 

0733  writeC (*  IS  CHARGED  AND  THIS’); 

0734  writelnC  COPYRIGHT  NOTICE  IS  RETAINED  *)» ); 

0735  write  ('  (WHHHHimmmnimimHHm1 ) ; 

0736  ffiteln(’HHHHWH«iiiiiminmmwHH)»)j 

0737  writeln; 

0738  writeCPLEASE  HIT  RETURN  (Dree  or  twice,  as  necessary)  TO  CONTINUE’); 

0739  readln(continue) 

0740 

0741  end;  {Warranty} 

0742 

0743  (HWHHHWHI«HHHHH»H»mmmHHHHHWHllHimH«»HH) 
0744 

0745  begin  (Hain  Program) 

0746 

0747  -(Initialize  prograa  variables) 

0748  AeroConfidence  :=  0.0;  AeroDriftDistance  :=  0.0;  AeroError  :=  0.0; 

0749  DatusLatitude  :=  0.0;  DatuoLongitude  :=  0.0;  DirAeroDrift  :=  0.0; 

0750  Dist Between  :=  0.0;  DaaxDir  :=  0.0;  DwaxDir  :=  0.0; 

0751  DaaxDistance  i~  0.0;  DsiinDi stance  :=  0.0;  DnaxLatitude  :=  0.0; 

0752  DnaxLongitude  :=  0.0;  DminLatitude  :=  0.0;  DwinLongitude  :=  0.0; 

0753  DRerrorSearcher  :*  0.0;  FixErrorSearcher  i-  0.0;  LastLatitudeKnown  :=  0.0 
0754  LastLongitudeKnown  :=  0.0;  LatAeroDrift  :=  0.0)  LatLwrLeftCorner  :=  0.0; 
0755  LatLwrRt Corner  :=  0.0;  LatNS  :=  ’Q’;  LatUprleftCorner  :=  0.0; 

0756  LatUprRtCorner  :=  0.0;  LongAeroDrift  :=  0.0; 

0757  LongEU  :=  ’8';  LongLwrLeftCorner  :=  0.0;  LongLwrRtCorner  :=  0.0; 

0758  LongUprLeftCorner  :=  0.0;  LongUprRtCorner  :=  0.0;  HaxSurfaceError  :=  0.0; 
0759  HinSurfaceError  :=  0.0;  NewLatitude  :=  0.0;  NewLongitude  :=  0.0; 

0760  ObjectDRerror  :=  0.0;  ObjectFixError  !=  0.0;  PreviousDriftErrs  :=  0.0; 

0761  AreaOfSearch  :=  0.0;  SearchNuaber  :=  0;  SearchRadius  :=  0.0; 

0762  SurfaceHiniMax  :=  0.0;  SurfConfidenee  :=  0.0;  TotalDriftError  :=  0.0; 

0763  TotObjectErr  :=  0.0;  TotProbableErr  !=  0.0;  TotSearcherErr  :=  0.0; 

0764 

0765  Warranty; 

0766  Position; 

0767  AeroSurfVectors; 

0768  AreaSearch; 

0769  FindCoordinates; 

0770  WriteToDisk; 

0771  writelns(24); 

0772  writeln(’A  record  of  significant  input  and  output  data  used  during  this’); 

0773  writelnC program  run  is  stored  in  an  external  file  named  ‘AREADATA*.’); 

0774  writeln(’If  you  desire  to  keep  this  record  pemanently,  please  rename’); 

0775  writelnCfile  AREADATA  before  running  this  prograa  again!’) 

•776 

•777  end.  (Hain  Program} 
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Variable  Program  line  Number 


AeroConfidence 

76 

229 

238 

238 

233 

589 

748 

aerodrift 

191 

199 

288 

288 

281 

281 

285 

285 

AeroDriftDistance 

77 

217 

233 

381 

384 

385 

564 

584 

587 

748 

AeroError 

76 

233 

469 

591 

748 

AeroSurfVectors 

189 

767 

AreaDat 

121 

552 

553 

555 

556 

557 

558 

568 

561 

562 

S66 

567 

568 

571 

572 

573 

574 

575 

576 

577 

579 

588 

581 

582 

586 

587 

588 

589 

598 

591 

592 

593 

596 

597 

598 

599 

688 

681 

682 

603 

604 

685 

686 

687 

688 

610 

611 

612 

613 

615 

616 

617 

616 

619 

628 

621 

622 

624 

625 

626 

627 

628 

629 

630 

631 

633 

634 

637 

639 

641 

643 

645 

647 

648 

649 

658 

651 

652 

654 

655 

656 

657 

659 

668 

661 

662 

664 

665 

666 

668 

669 

670 

672 

673 

674 

676 

677 

678 

688 

681 

663 

AreaOfSearch 

112 

527 

534 

652 

761 

AreaSearch 

445 

768 

BrgRads 

344 

349 

358 

351 

352 

353 

354 

372 

383 

384 

385 

394 

395 

3% 

482 

483 

404 

418 

411 

412 

413 

414 

415 

continue 

447 

537 

691 

739 

count 

128 

131 

132 

135 

135 

DRerrorSearcher 

91 

497 

499 

627 

753 

DatumLatitude 

79 

355 

419 

668 

749 

Datuitongitude 

88 

355 

428 

661 

749 

DeciealLatitude 

283 

383 

387 

DeciaalLongitude 

284 

328 

324 

OirfleroDrift 


61  211  212  212  383  749 


List Bet ween 

82 

271 

465 

684 

758 

DaaxDir 

83 

259 

268 

268 

394 

418 

758 

758 

DuxOistancc 

85 

265 

395 

396 

411 

412 

464 

599 

751 

DaaxLatitude 

87 

398 

575 

751 

DuxLongitude 

89 

399 

576 

752 

DainDir 

84 

247 

248 

248 

482 

413 

DainOistance 

86 

253 

483 

484 

414 

415 

463 

598 

751 

DninLatitude 

88 

486 

572 

752 

DninLongitude 

98 

487 

573 

752 

FindCoordi nates 

368 

769 

FindXYsToCorner 

342 

424 

429 

FixErrorSearcher 

92 

494 

499 

625 

753 

LastLatitudeKnown 

93 

159 

168 

168 

163 

163 

387 

397 

485 

418 

561 

753 

LastLongitudeKnown 

94 

177 

178 

178 

181 

181 

388 

397 

485 

418 

562 

754 

LatAeroOrift 

95 

389 

567 

754 

LatLwrLeftCorner 

96 

438 

433 

669 

754 

LatLwrRt Corner 

97 

433 

677 

755 

LatNS 

71 

158 

152 

152 

152 

152 

153 

153 

153 

153 

298 

755 

LatUprleftCorner 

98 

436 

665 

755 

LatUprRtCorner 

99 

425 

436 

673 

756 

lines 

126 

132 

LongAeroDrift 

188 

398 

568 

756 

LongEW 

72 

168 

178 

178 

178 

178 

171 

171 

171 

171 

757 

LongLwrLeftCorner 

181 

431 

437 

678 

757 

LongLarRt  Corner 

102 

434 

678 

757 

LongUprleft Corner 

103 

437 

666 

758 

LongUprRt Corner 

104 

426 

434 

674 

758 

KaxSurfaceError 

105 

464 

465 

602 

758 

MinSurfaceError 

108 

463 

465 

601 

759 

NewCoordinates 

280 

355 

387 

397 

405 

418 

NewLatitude 

107 

315 

389 

398 

406 

419 

425 

430 

759 

NeHLongitude 

108 

332 

390 

399 

487 

420 

426 

431 

759 

ObjectDRerror 

109 

482 

484 

618 

760 

ObjectFixError 

110 

479 

484 

616 

760 

Position 

142 

766 

PreviousDriftErrs 

111 

241 

466 

597 

760 

radians 

69 

323 

349 

352 

383 

394 

402 

410 

413 

SearchArea 

67 

SearchNtaber 

74 

517 

518 

518 

520 

521 

522 

523 

524 

636 

638 

640 

642 

644 

761 

SearchRadius 

113 

350 

351 

353 

354 

520 

521 

522 

523 

524 

525 

525 

526 

526 

527 

527 

533 

650 

761 

SurfConfidence 

115 

459 

460 

460 

463 

464 

600 

762 

SurfaceMiniMax 

114 

465 

469 

686 

762 

Teap 

285 

294 

312 

313 

314 

329 

330 

331 

TeapDegree 

286 

294 

301 

302 

303 

310 

311 

315 

318 

319 

380  327  328  332 


TespDenon  287  294  323  324 


Teoplatitude 

281 

301 

302 

307 

310 

311 

323 

TeapLongitude 

281 

318 

319 

324 

327 

328 

Teaprtin 

288 

294 

313 

314 

315 

3 38 

331 

332 

TrapMinSec 

289 

295 

302 

303 

311 

312 

319 

320  328  329 

TenpSec 

298 

295 

314 

315 

331 

332 

TeepX 

373 

379 

386 

395 

403 

411 

TeepY 

374 

379 

386 

396 

404 

412 

TotObjectErr 

117 

484 

502 

502 

620 

763 

TotProbableErr 

118 

501 

502 

502 

503 

503 

504 

504 

520 

521 

522 

523 

524 

634 

763 

TotSearcherErr 

119 

499 

503 

503 

629 

763 

TotalDriftError 

116 

469 

501 

501 

611 

762 

Vectorl 

342 

349 

370 

423 

424 

428 

429 

Vector2 

342 

352 

371 

423 

424 

428 

429 

Warranty 

689 

765 

Mritelns 

126 

146 

195 

237 

471 

486 

506 

535 

539 

JTV 

771 

WriteToDisk 

549 

770 

Xcomponent 

280 

298 

298 

324 

345 

350 

353 

353 

355 

375 

384 

386 

387 

395 

397 

403 

405 

411 

414 

414 

418 

Yconponent 

2B0 

386 

306 

307 

346 

351 

354 

354 

355 

376 

385 

386 

387 

396 

397 

404 

405 

412 

415 

415 

418 

Pronrae  Line  Nurter 
552 

72  191  447  691 

683 

323  351  354  385  396  404  412  415 

67 

74  126  128  342  371 

67 


Operator 

assign 

char 

close 

cos 

input 

integer 

output 


D-100 


readln 

150 

159 

168 

177 

199 

211 

217 

229 

241 

247 

253 

259 

265 

271 

459 

479 

482 

494 

497 

517 

537 

739 

real 

119 

280 

281 

290 

346 

376 

rewrite 

553 

sin 

350 

353 

384 

395 

403 

411 

414 

sqrt 

504 

text 

121 

trunc 

381 

310 

313 

318 

327 

330 

525 

526 

write 

149 

158 

167 

176 

198 

210 

216 

220 

222 

224 

228 

240 

246 

252 

258 

264 

270 

453 

458 

473 

478 

481 

488 

493 

496 

516 

536 

555 

557 

560 

581 

566 

567 

571 

572 

574 

575 

579 

586 

588 

590 

592 

5% 

598 

681 

603 

605 

607 

610 

612 

615 

617 

619 

621 

624 

626 

628 

638 

633 

647 

649 

651 

654 

656 

659 

660 

664 

665 

668 

669 

672 

673 

676 

677 

680 

695 

697 

699 

701 

703 

785 

707 

709 

711 

713 

715 

717 

719 

721 

723 

725 

729 

731 

733 

735 

738 

nriteln 

134 

148 

151 

156 

157 

161 

162 

166 

169 

174 

175 

179 

188 

197 

202 

288 

213 

215 

218 

221 

223 

225 

231 

238 

239 

242 

244 

249 

251 

254 

256 

261 

263 

266 

268 

269 

272 

452 

454 

455 

461 

472 

474 

475 

476 

477 

480 

483 

487 

489 

490 

491 

492 

495 

498 

507 

508 

509 

510 

511 

512 

513 

514 

529 

530 

531 

532 

533 

534 

541 

556 

558 

562 

568 

573 

576 

577 

580 

581 

582 

587 

589 

591 

593 

597 

599 

600 

602 

604 

606 

688 

611 

613 

616 

618 

620 

622 

625 

627 

629 

'631 

634 

637 

639 

641 

643 

645 

648 

650 

652 

655 

657 

661 

662 

666 

670 

674 

678 

681 

696 

698 

700 

702 

704 

786 

708 

718 

712 

714 

716 

718 

720 

722 

724 

726 

727 

728 

738 

732 

734 

736 

737 

772 

773 

774 

775 

%  Variables  l  Operators  Used 


951  Occurrences 


Don  Richard  “Rick"  Douglas  was  born  in  Salt  Lake  City, 
Utah  on  August  4,  1953.  After  graduating  in  1975  front  the 
United  States  Air  Force  Academy  with  a  Bachelor  of  Science 
Degree  in  history,  he  attended  helicopter  pilot  training  in 
Alabama.  He  served  as  a  Combat  Rescue  Aircraft  Commander  in 
USAF  HH-53  "Super  Jolly  Green  Giants'*  in  Japan  (air-aea 
rescue)  from  1976-79  and  USAF  UH-1N  “Twin  Hueys"  in  Utah 
(mountain  &  desert  rescue)  from  1979-81.  He  was  then 
"loaned"  to  the  United  States  Coast  Guard  (USAF  Exchange 
Officer  Program),  where  he  again  flew  air-sea  rescue 
missions  in  USCG  HH-3F  "Pelicans"  in  Florida  from  1981-83. 
He  is  credited  with  saving  20  lives  and  assisting  another  26 
to  safety  during  30  separate  air  search  and  rescue  missions. 

Rick  is  a  graduate  of  the  following  rescue-related 
training  courses:  USAF  Basic  Survival  in  Colorado,  USAF 
Jungle  Survival  in  the  Philippines,  USN  Aircraft  Underwater 
Egress  in  Florida,  USN  SCUBA  and  Drown-Proof ing  in 
California,  USA  and  West  German  Airborne,  and  USCG  National 
Search  and  Rescue  School  in  New  York. 

He  is  married  to  a  criminologist  and  ex-New  Orleans 
Playboy  Bunny,  the  former  Paula  J.  Hartzfeld  of  Bronaugh, 
Missouri.  Their  son,  Craig  Madison,  is  also  credited  with  a 
"save".  Craig  received  numerous  newspaper  and  Scouting 
awards  for  saving  the  life  of  a  Utah  man  who  was  seriously- 
injured  in  a  highway  accident  in  1979. 
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This  paper  tackles  the  most  time-consuming  and 
complicated  type  of  search  and  recovery  planning 
calculating  the  approximate  surface  position  of  an  aerospace 
object  which  has  been  affected  over  time  by  glide  or 
parachute  winds  aloft,  as  well  as  surface  current  winds, 
leeway  drift,  and  sea  current  vectors.  The  three,  highly- 
interactive,  search  applications  programs  herein  are  written 
in  Standard  Pascal  using  Borland  International ' a  "TURBO 
Pascal"  (an  inexpensive  software  package  available  for 
virtually  every  microcomputer  on  the  market) .  -  They  have 

been  tested  on  a  small,  portable,  64K  memory,  Z-80A 
processor-based  microcomputer  (Osborne  One),  a  Convergent 
Technologies  C-3  Data  System,  and  a  Digital  Equipment 
Corporation  VAX  11-780  mainframe. 

Search  and  Rescue/Recovery  (SAR)  in  the  United  States 
is  based  on  the  humanitarian  principle  which  compels  people 
to  render  aid  to  those  in  distress.  Search  planning 
guidelines  and  formulae  to  help  locate  persons  in  distress 
or  missing  aerospace  objects  are  described  in  the  National 
Search  and  Rescua  Manual  (AFM  S4-2) .  This  methodology  has 
not  been^imp lamented  for  microcomputers  in  a  compiled, 
transportable  programming  language  like  Pascal.  This 
research  project  does  just  that.  It  does  not,,  however, 

»•  teach  the  guidelines  or  formulae.  -  The  reader  NUST  have  a 

solid  understanding  of  SAR  methode4rogy  before  using  -the  ^ 
-attached  software  package  to  assist  in  making  decisions 
where  human  life  is  at  risk.  In  fact,  since  no  amount  of 
testing  can  uncover  100*  of  program  errors,  the  attached 
software  package  is  recommended  for  training  use  only. 

Appendices  include:  glossary,  user's  guide,  sample 
problem  with  program  runs  and  solutions,  and  source  code 
listing. 
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